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EDITORIAL NOTES 
Seasons Greetings! I hope that the following few pages will fill 
in a fair few hours over the holiday break. Watch out for the 
crossword though - its mot quite as straight forward as last 
years... Incidently, THREE different Tony W.s contributed to 
this edition - and I suspect the crossword author may wish to 
preserve this relative anonymity! 


COMPETITION 
Gavin Flower’s SASi{@@ and Bill Tillick’s T-Draw and Sub Hunt 
have been won the software competition that I announced in 
April. Congratulations to both of you. 
The contributions of Tim Ryan (Windows), Neil Gordon (Disk 
Backup) and Alan Beeston (Printing Disc Maps) were also very 
highly commended. 


A detailed account of the criteria used in judging will be 
supplied for the February issue by Warren Willis who very Kindly 
agreed to do the judging. 


THANKS 

I should like to thank all those people who have put in a great 
deal of time and effort this year assisting me in magazine 
production - Anne Flower in particular, and Gavin, Tim Ryan, 
Steve Cosgrove. Thanks also to those who have contributed 
material - a lot of people ai] round the country have put in 
very coniderable energies to produce generally quite a high 
standard of contributions. Please continue this next year... 


APOLOGIES 
wto those such as Tony Watton (Beebs in the Backwoods) whose 
names I have omitted from their contributions ( I suggest 
contributors embed their names firmly into their work), and to 
ary those I have not yet personally written to thank for their 
efforts. 


FINALLY... 
Please enjoy the break - I certainly will - but remember to send 
in something for the February edition. Don’t be surprised if 
correspondence is somewhat delayed over the next few weeks 
either. You might start thinking about who might be willing and 
able to take over Beeblet next year - the current Editor is due 


for the 190,000 mile overhaul..scsce 
HERE EEHH ERE RHEE ERE EE RE RHEE EEE 


BEEBLET is edited by Bruce Wills who may sometimes be tracked down on 961-662 
(home), or 729-929 (work), 


DISCLAIMER 
The views of the reviewers, the Editor and other contributors are not 


necessarily shared by the 
BBC/ACORN COMPUTER USER GROUP NZ INC 
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MODEMS 


As I write, the decision of the Post Office on our modem has yet 
to be officially notified. Unofficially, it seems to have 
passed with the exception of the 12V AC power pack we used, 
which apparently didn’t have a NZ Standards certificate. An 
alternative is being provided to them. 


At an expected price of around $219, the modem is an incredibly 
good deal. The Fountain modem, with comparable facilities, is 
now on sale in Wellington for $399 plus another $36 or so for 
the cable to connect it to a BBC. If you haven’t already done 
so, send in your $50 deposit to secure your modem (see last 
months "Beeblet" for details). Delivery will now, obviously, be 
early mext year. 


QUESTIONNAIRE RESULTS 
Thanks to all those people who tock the time tc complete arc 
send in their questionnaires. In particular, 1 thank those whe 
added comments - these will be taken inte account in our 
endeavours to continue having the best possible User Group. 


As the October magazine was published a little later than 
expected, we extended the deadline for replies to the end of 
November. By then, 129 replies had been received from financial 
members. 


The questionnaire was also sent out to non-renewing members. 
Two of them replied and rejoined! They have been counted as 
financial members. Five others also returned questionnaires. 
One no longer had a BBC and didn’t actually answer any of the 
questions. Another thought a one page local monthly newsletter 
was all that was required, and might rejoin if there was either 
no magazine or it was optional. The other three were generally 
in favour of the magazine (either monthly or bimonthly). 


Magazine Options 


The diagram below summarises the responses for the six magazine 
options. It’s quite simple. Really. 


For each option, the length of the central (thinnest) bar 
represents the percentage of people who either ticked "Don’t 
Know" or, presumably not Knowing whether they didn’t Know, 
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didn’t tick any box for that question. This bar is centred on 
the zero line. 


Ho ax pales 186% 
Status auo '- pnthig ao page: 
Bimonthly 40 pase 
Monthy 28 page 


Mo magazine 


_N=129 


Opt i onal magaz i ne 


In Bits and Bytes 





To the left, the length of the thicker bar indicates the 
percentage of people ticking "No", and the thickest bar the 
percentage ticking "Definite NO". Similarly, on the right the 
thicker bar represents those ticking "Yes" and the thickest bar 
those ticking "Definite YES". 


So, if we allocate half of the fence sitters to each side, the 
total length on the left indicates those people not in favour of 
that option and the length on the right those who like it. 
Adding up those two lengths gives 100%. 


In addition, the X shown in the Yes area for each option 
indicates the proportion of people who gave that option their 
highest rating of the six options. (If two or more options were 
equally highly rated, the "votes" were split between them.) 


The results resoundingly favour the status quo - about 85% were 
generally in favour of a monthly 4@ page magazine and 68% chose 
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it as their most favoured option. Only a few percent sat on the 
fence for this one. The bimonthly or monthly 28 page options 
were much less favoured. 


It is also clear that almost everyone wants a magazine of some 
sort. Only 0.6% chose "No Magazine" as their most favoured 
option, and 4% "Optional Magazine". While just over 30% were 
generally in favour of an optional magazine, in the subsequent 
question about whether they would want "Beeblet" if it were 
optional, only {2% said they wouldn’t get it. &2% said they 
would get it, and 6% gave no answer. 


The questions about inclusion in Bits and Bytes" led to some 
interesting comments - ranging from “what is Bits and Bytes?" to 
"it’s terrible and I won’t be renewing my subscription" to 
"everyone gets it anyway so that’s a good idea”. This option 
came second in the popularity stakes, with 13% giving it their 
highest rating. However, the result is somewhat academic as, 
Judging by their lack of reply to my letter, Bits and Bytes now 
don’t seem interested anyway. 


Finances 


Judging by the comments on this question, it seems to have been 
misinterpreted by some. I apologize if I did mot make it clear 
that we were looking for a way to return some of our accumulated 
‘surplus to loyal members, rather than curing any preblem of 
tardy renewals, 


The most popular choice for a rebate was $5, with 56% support. 
36% wanted no rebate at all, and only 6% wanted a $16 rebate. 
Two people didn’t Know. The general impression from the 
comments was that the accumulated surplus wasn’t very large and 
should be put to good use in improving services for the 
membership. 


Summary 


It is clear both from the above statistics and comments written 
on the bottom of the questionnaires that the magazine is seen as 
essential to the User Group. Many people commented that 
"Beeblet" is their only contact with the Group, as they are not 
able to attend any User Group meetings. We will continue to 
produce "Beeblet" with its current size and frequency. Looking 
further in the future we may eventually move to some sort of 
Bulletin Board service containing all or part of the magazine, 
as suggested in a number of the comments. 
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Given the majority support for a $5 rebate for prompt renewals 
(within a month being suggested by many), this will probably be 
recommended to the AGM - subject to our financial situation at 
the time. 


Finally, may I take this opportunity to wish you all a very 
happy Christmas and the best of things for 1986. 


Neil Gordon 





SIDEWAYS RAM 





Anne F. 


A member in Nelson has recently got the Watford Mk 2 ROM/RAM 
board, which comes with fitting instructions, but no help on how 
to use the RAM that is fitted. Could other members who have 
some experience in this area please write in to help this 
member. Replies could be published for other members perusal 
also. 
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aa 


Qi Peter Till) asks about a problem he has with ¥% not 
always rounding off and printing numbers like 243.330000@1 when 
a% is set to &20206. 

Al I really can’t give you a final answer on this one 
Peter. Either you've reset 9% accidently - perhaps by 
overwriting memory location &40@, or there 18 a bug in 
BBC/ELECTRON BASIC. 


OSCLI and File Names 


QZ J Logie asks about using OSCLI to handle variable file 
names im BASIC - he found the answer in April’s Beeblet (which 
wasn’t mine) a bit brief and cryptic. 

Ae OSCLI is the OS’s way of handling any commands from 
the user (star commands). 

OSCLI - being OS based - can not handle BASIC variables, so if 
the user wishes to pass variables from BASIC through the OSCLI 
vector to OS, the contents of the variables must be passed, not 
the variable name. 

BASIC 2 can handle this easily, with the use of the reserved 
word OSCLI, BASIC 4 is a bit more complicated and will be 
explained in a moment. 

In either case the command message should be set up in a string 
variable (eg- comm$) and called by: 

BASIC 1 - PROCoscli(comm$) 

BASIC 2 - OSCLI{comm$) 


The procedure required for BASIC j is as follows: 


DIM line 255:REM put this at the start of your program 
DEF PROCoscli($line) 

LOCAL X%,Y% 

X*®=line MOD 256:Y%=line DIV 256 

CALL &FFF?7 
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ENDPROC 
Some example s of possible command lines: 


comm$="DIR "+dir$ 
where dir$="A" 


result: #DIR A 
comm$="SAVE :2.A."+filename$+" 3608 7090" 
where filename$="SCREEN" 
result: #SAVE :2.A.SCREEN 3000 7096 
comm$="LOAD :"4drive$+" "+dir$t"."+filenameg$t+" “+stré"start%t" 
"¢etr$"endh 
where driveg="1i", dir$="B", filename$="TEST", 


start%=6408, and end%=32767 
result: LOAD :1.B.TEST £00 7FFF 


CLASSIFIED ADVERTISEMENTS 


For Sale: 


BBC micro, issue 4 P.C. Board (2 years old). ($4.2 OA, DOS, 

Wordwise and Star Data Base ROMS installed. Mitsubishi &@ track 

Double Sided Disc Drive (4 year old) utility disc and Disc User 

Manual. Games and Primary Education Software. $2,204 ONO. 
Phone Evan 330-444 Invercargill 


BBC B with DFS and lots of software : $1600. 400K Mitsubishi 


disc drive with utility disc and manual : $400-0@. 
Phone Tony Booth 639-155 
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No-one has offered to buy me a Plus 3 yet. so I have not yet 
written a review of it, {Wouldn’t it be fun just ta try 
offering one ta me? - who Knows, I might turn it down!) 
Notwithstanding that, Whitcoulls have lent me one for various 
research purposes oaccasianally, so I must put in a good word far 
the unit. 


The campact nature of the Electron system is one thing that 
really appeals to me. Even with the Plus 1 & 3 all bolted 
together, I can still put it into a shoulder bag, with lots cf 
padding, and carry it easily. The Plus 1 expansion sockets have 
all the pins which I will ever need to expand my system, sca 
there will be none of the infinite tangle of wires, and extra 
boards which fill some BRCs. ‘Ed.s query: You are not getting at 
someone are you 7 - so what if it works better with the top 
off..) 


For those lesser mortals who haven’t caught up with these 
"extras" here is a Summary of their operations, 


Plus 4 : Allows connection of a printer, joysticks, and two 
extra expansion sockets. In order to make all this work, an 
extra ROM (2K I think) is provided inside. This ROM also 
supports an ‘'RS423’ addition, which is a serial interface. 
Basically, that is a means of communicating with other 
computers, and similar functions. 


Plus 2 : Econet interface. Used mainly in schools. <Any a 
number of computers, connected together by the Econet Network, 
can read programs from one computer {called the "server") with a 
disk drive. Not only is it convenient to be able to hold ail 
the programs centrally this way, but it is also cheaper than 
have a disk drive on each computer. One printer can also be 
shared by all computers on the network. Resource sharing is 
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just one of many features of Econet. 


Plus 3 : Disk drive. No doubt most Electron users have seen a 
Plus 3 in action. On first inspection, one could be excused for 
wondering how an L shaped hunk of plastic can cost $1006.8@ or 
so. A large amount of the cost is in the drive part. That is 
the bit that sticks out the right hand side. It is called a 3 
4/2 inch drive (not even the Japanese use metric for that) 
because the "disks" which it uses are 3 1/2 inches in diameter. 
The disk is held in a solid plastic case, with a shutter over 
the only opening, which is where the drive gets to read data 
stored on the disk. This type of disk looks to be becomming the 
new "standard", as it is a convenient size, and in not very 
susceptible to damage. It can hold the same amount of data as 
the larger (5 1/4") disKs that have been "standard" for some 
years. At present 3 1/2" disks are more expensive, but as their 
use increases, the price will decrease. (Current User Group 
prices are $55.90 & $85.00 respectivly for boxes of ten.) 


The real beauty of the Plus 3 is it’s "ADFS", which is the way 
in which it allows the user te save programs on a disk, You 
probably have tried toe find a document in an office where 
everything is filed on one place. It takes ages. A disk can be 
the same if a lot of programs are saved on it. However, the 
Advanced Disk Filing System allows creation of any number of 
separate "directories"... A directory is like a folder or drawer 
in a filing cabinet. A number of sub-directories can be made up 
for different categories of programs, and relevant programs 
stored therein. Sub directories can be further divided, if need 
be. For example, I have a disk which has directoies called 
“basic" "Pascal" "newsletter" for different types of program. 
"newsletter" is further devided between "current" and "old". At 
the end of each month, I copy everything from the "current" 
directory ta the "ald" one. 


Another thing I have discovered this weekend, (indeed, the 
reason | had been loaned it) is that it is very easy to connect 
a second disk drive to the Plus 3, which makes copying disks 
considerably faster. The drive we used is 5 1/4" size, which 
allows reading of different sized disks. It could easily have 
been another 3 1/2" one. 


Thats it for this month. Have a good time over Christmas. As 
always, letters on any subject are welcome. I do try to reply 
quickly to those which I get. Please note too that we are 
developing a RAM board for the Electron. A notice about this 
appears elsewhere in ‘the newsletter, 
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MEMORY SAVING 
Steve Cosgrove 


Well! It has arrived! The great Acornsoft Pascal in an Electron 
cartrige! Along with it came the "Pseudo Mode 7". This program 
uses the same technique to allow more memory for your program. 


In my column last month, I talked about the extra memory demands 
brought about by not having Mode 7. If a program does not make 
much use of the screen (eg, only has to ask questions of the 
user), then a screen size of 6 lines by 4@ characters could be 
all you need. 


The program featured below sets a "window" on the screen, of 
that size, then resets "HIMEM", which is a marker used by Basic 
to work out how much memory it can use. Normally HIMEM is 
immediately below the screen memory. 


Chain this program, then one which previously created a “ne 
room" error. Before you run the second program however, make 
sure that it does not have any made changes, as these will nov. 
generate an errar. 


18 REM Extending available memory 
20 REM by Steve Cosgrove 
36 REM 8th December 


4p 
58 NODE 6 

68 VDL! 28,0,24,39,18 ; REM text 

78 REM YDU 24,8:8:12793254; sREM graphics 


88 HIMEM = &7688 

98 delay = 288 :REM hundreds of a sec ; = 
108 REPEAT 7 
118 © times = TIME is 
128 REPEAT 


436 PRINT "this is all the screen space "; 
148 UNTIL times + delay ¢ TIME 

156 timed = TIME 

{68 REPEAT 

178 GCOL RND¢4) ,RNDC16) 

186 PLOT 85, RND( 1879) ,RND{ 254) 

196 UNTIL times ¢ delay ¢ TIME 

206 0 UNTIL FALSE 
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ACROSS 

1 Vigorous sport sort that lice reorganised (8) 

4 Having the gall] to misspell will create a star (8) 
18 Party attendance payment (7) 

12 They’ve one area of NZ computer media all taped up! (3) 
44 Not you (2) 

16 Sea bird of Santa’s clime (3) 

18 You haven’t until it’s all filled in (3) 

28 Give backwards (4) 

21 Easily copied disks? (3) 

22 This useful hint may upset you (3) 

23 Disassociate matter (4) 

24 Basis of Santa’s homeland (3) 

25 Forward foreword of pirates cry (2) 

26 Moderate collection of abodes (4) 

2? A period sounding like program problem (3) 

29 Santa’s sleigh could use one when it’s snowing (4) 
38 We fifty odd territorys (2) 

3t Cycle forerunning an execution (5) 

35 Heart of lesser beasts £5,4,1,3) 

3? A new thought - seeing deer for the blind ?? (4) 
4@ Numero Uno (2) 

41 Low level plant operating system (4) 

44 Break before we restart again (3,4) 

45 The person or thing just mentioned (4) 

48 Pod encapsuled dimension of a brain (3) 

49 Single pointed card (3) 

38 Pixels for the layman (4) 

O1 Tangential separation of a sector (7) 

33 Fail to win twisted sole (4) 

5é What a laugh (2) 

o/ Against mixed-up Tina (4) 

58 Pious vaction (4,7) 

63 For eating Xmas pud (5) 

44 Asciilian return (2) 

63 Register your social standing {6} 

44 Program terminator 43) 

69 More inversion (4) 

71 Meaningless aboutface of 25 acrass (2) 

72 Overflowed into stable about this time (3) 

74 Round of visits (4) 

74 Counter for serving stiff rod (3) 

77 Latest Naval ranking co. beasty (3) 

78 What Santa might collect on the way 44 down (4) 
79 Contracted data entry (3) 

88 Foxy place for computer to reside (3) 

81 Gne third of seasonal greeting (2) 

83 Nothing pointing to nowhere (Pascal) (3) 

84 Bees not Beebs provide rods of enlightenment (7) 
87 Santa’s dear helpers (8) 

88 A stratum below (3,5) 
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Santa’s home (4) 

Real computer people (7) 

Tree ‘em for Kay 8 down ? (3) 

Reciprical circumference over too are ? ‘2) 

Ten million rupees to restate Corer! (5) 

Sounds like a previous 54 down 46) 

A bad mark on 43 down rearranged (5) 

A dear small relation of Beeb (3) 

Nice sort (4) 

1] The heart of real beasties (5,5,8) 

13 Reverse analogue to digital converter (3) 

15 Formery or alternative to an exclusive alternative (4) 
17 Negated down (2) 

18 Us sounds tiny (2) 

19 What we three Kings brought each (3,7) 

22 Binary times (5) 

23 It’s a bit dicy trying to figure out this generation 44) 
25 Abominable creature (4) 

28 Le rat changed (5) 

3) Asciilian form feed (2) 

32 Monitor alternative (2) 

33 Really cooking £3) 

34 The decider and the last! (5) 

35 Utter express in two bytes (2) 

36 Short form seasonal holiday (4) 

38 For your war services and Xmas party (10) 

39 Feminine memorys ?? (4) 

42 Nope to unclosed (4) 

43 Cloth jumbled 7 down 43) 

43 Go less banished command (2) 

446 Since (2) 

47 37,885 say Hex is done for (4) 

S1 Polished programs attain this attribute (9) 

52 Upturn a tropical tuber to obtain a luny period 43) 
54 A person that’s a program (4) 

55 DFS in another world (3) 

59 On a level above the sole (3) 

68 Hither 45 down again! £2) 

61 Assert one true high 12) 

62 Tandy without a head (4) 

44 No burgular alarms on Santa’s entrance ‘7) 

6? He traveled in an arc and landed a’ amount before Xmas (4) 
48 Above the heads of all at 87 across (4) 

89 Piecing tool used of old by night to spread Christmas views (5) 
76 Chew on metal and swallow data (5) 

73 Packet switching network users need identity (3) 

74 A weeping pile of rows ?? (4) 

75. A higher position for a small dog without a pea 2) 
76 Half a Beeb (2) 

88 Useless computer (3) 

82 Even this won’t make your programs run smoother (3) 
85 Contracted accumulating registers ? (2) 

846 Would take me to court but for the neglecte’e (2) 
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HALL OF FAME 


GAME 
Frak 
Monsters 
Zalaga 


Arcadians 
Aviator 
Countdown 
Meteors 
Monsters 
Planetoid 
Rocket Raid 
Snapper 
Starship Command 
Super Invader 
Cylon Attack 
Chuckie Egg 
Bug Blaster 
Fortress 

Twin Kingdom 
Android Attack 
“747° 

Bird Strike 


Mutant Defender 
Lords of Time 
Snowbal 1 
Castlequest 
Felix in Factory 
Frenzy 

Killer Gorilla 
Laser Command 
Moon Raider 
Q*Bert 

Mr Wiz 
Roadrunner 

Dr Who 


Note: 
HALL OF FAME 


HISCORE 
626,828 
175,118 
598,108 
52,090% 
34,748 
5,618 
246 
46,268 
149,738 
413,875 
148,777 
256,800 


6,988 
925/1088 
980/1008 
50 
13,158 
915,468 
91,680 
189,225 
112,350 
43,825 
21, 050% 
118,788 
35,248 
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SCORER 

Andrew P., 

Geof P. 

Allister J. 

Nick C. 

Rasik R. 

Joanne C’s Dad 
Andrew 

Andrew P., 

Rupert T. 

Peter J. 

Mark R. 

Susan 

Robert N. 

Kiran R. 

Aaron 

Greg C. 

Steve W. 

Andrew P. 

A. Beeston 

Peter J, 

Steve W. 

David G, 

Patritk C. 

Steve W. 

Steve W/Kerry K. 
Steve W./Dianne 
Jeremy B. 
Duncan’s Fliatmate 
Dianne T 

Susan 

P. Leadley 
P.Leadley 

Peter J. 

Chris M. 
Duncan’s Flatmate 
Duncan’s Flatmate 


Is there life after Elite? 
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MUSTAVE 
A sort of music note processor 


Tony W., 


Editor’s mote: Tony recently delivered an _ interesting 
presentation, at rather short notice, to the Wellington group. 
While the program is currently unavailable, Tony has once again, 
at shart notice, provided some details of some of the ideas he 
has been working on, and a sample printout. I hope this will 
stimulate a few other UG members with similar interests - Tony 
will be going overseas shortly, but would be interested in 
keeping in touch. 


Programming in the W. househald is a family affair. In the main 
I find myself having broad ideas but Julian is often called upon 
to add a bit of his Knowledge and programming technique. I am 
mot a graphic artist. Pieces of paper with writing, printing or 
music op any other information deo NOT come from my hand. 
Therefore when, earlier this year, we Keyed in a circuit 
draughting programme from a magazine, the idea was spawned for a 
Kind of music note processor which would give a worthy print of 
music. 


In its present form "“Mustave" is two programmes, the first 
initiating the screen with a set of blank music staves while 
the second cantains most of the user defined characters required 
in the printing of music. The joining of quaver tails has to be 
carried out with a pen and ruler on the printed sheet. (Not the 
work for a graphic artist). Depending om requirements, one, two 
or three staves will be produced on the screen. Other formats 
are planned, including those for songsheets and solo instrument 
with or without piano accompaniment. Saving is achieved by 
dumping the contents of the screen to disc. Likewise to print. 
Bach screen dump on disc represents about 20k storage so that 
the capacity of an &@ track disc is only 9 files or screens. The 
programme has not been tried using tape mode but ] suspect that 
loading and saving would be somewhat time consuming. The 
programme uses a machine cade routine for eeaping each screenful 
to printer. The printed block is 135mm wide full size which 
allows a generous margin on each side of a size A4 sheet. This 
programme was written to produce printed music scores with the 
advantages of edit, erase and copy features found on word 
processors. It has been used to produce the musical score of if 
tunes in a book shortly to be published. As an example, one 
of the tunes is reproduced here, by Kind permission of the 
producers of the book. 


A GUID NEW YEAR TO ONE AND A’ 
PO RARASE SERRE OSES EER CRS CEO OCCULCOOLOSELOSCOLCOLLLOLLOCOLEL 


i? 


GUID NEW YEAR TAE ANE AND A? 


A 
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SWITCHED 
INTE 
Paul Collins Cambridge 


Fallawing pleadings from my son for "proper" joysticks and the 
aquisition of two Spectravideo Quickshot II joysticks at the 
right price, I set about building an interface that may be of 
interest to other members. The prototype was constructed ona 
piece of veroboard and has been very reliable. 


Please note the following:- 


i. The interface is for joysticks switching to a 
common ground ONLY. 

2. If only one joystick is required install all the 
Ri resisters to prevent parasitic oscillations in 
the CD4066. 

3. VCC is only required if your joystick has “AUTO 
FIRE’ : CHECK CAREFULLY and if in doubt DON’T 
CONNECT. 

4, The interface should be compatable with : ATARI, 
VIC20, C64 and SV 318/320 sticks but you pays your 
maney and takes your chances. 


As implemented here I have included a 15 pin socket on the box 
also, switching channel @ to 4 and PB @ to 1 between them with a 


six pole 2 way switch, the other lines being just paired as 
appropriate. 


© 


> on 
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SPECTRAVIDEOD QUICKSHOT IT JorsTreer 
THTERFACE FOR BBC NICROCOMPUTER 


HE Should work with any joustick 
Switching to a common ground. 


Uoon MUreF 


it LG@k 


pee or east 





Y Syn 

DESTIGH | 

Ccentred Vout="y,Uret 
SMe CLOSED Vout= Oref 
SWI CLOSED VYout= By 


CAMCOM 2279785 


20 








& Vcc Ay Sy 
£ Fire care eee 
oe Ground 25 


. BBC 
PORT 











ra L 
e Ved Osu 
6 Pig 108 
Le PBL 
253 
Ground OD 
Ri = iMegOhnm R2 = 160k0hm 


EC1 = CD4066 QUAD Switch 


21 


SOR FUSPUL HOLYSHOC Pay rns GHA WOOF PuBoqouwsn pwxysabsng 


wu ea = “wu GaN = Tu 


CPR =e UTAH 6& AOL SAGL = ["] 


CUOL_IRAUUOSD OUEX)> UL GT DAH = 


“< & 
ANnnoUwoD — 3 


Ee face ee eR a + (aaa ana e La er ab ee cq CO {e] 
a ee eee mnrne) I eee) Qemeerterriecererermcee renee Ol eee 0 emcee ner eee [3] 
aT zl ew pases { 


“e990 da oe | 
e] o&~ =: anoic—5+—_4__1________® [a] + 
£HD [r] Ch} p< 


ee scares 
[] ee Panes ott Tt ei boll 

Zuo [E] © a = ae —our i yo tot a PP ———--—& [&] 
ie] | a Ha 


i een a Les dae 4 * o pare he 
pe ee OE 
| | ae roan CP a . | a: a El: 























races ¥ pone 





+ (b] @—-——— 
a 








P 9 f+ 
it 2 
ihe. 
F 
CoG 90n es L Fup reed eats oem eee eee —— 
. vu ory ru orM 


S300 .55co eee - opi: eral oe [2] 2] 
@ada C)}--——~ L894 Oe oe [3] * 














22 


OES EEE TOSI E SEL ORECCEE EASE CECL LAOREET aaah 


ELECTRON RAM BOARD 
Steve Cosgrove 


Currently under development is an expansion board for the Plus 
hea support any combinatoin of the following:- 
32K of sideways RAM (with battery backup) 
i) Two i6K BBC ROMS 
i {6K of sideways RAM and one 16K sideways ROM 


This will allow Electron users to use ROMs such as LOGO, or 
Graphics. 

A rough estimate of the cost of the board, with everything 
assembled, ready to plug in the RAM/ROM, is $40. The current 
cost of 32K of CMOS RAM is about another $4%. 


The User Group would like to Know of anyone who might be 
interested in buying one of these boards when they come into 
production. This will help in determining the quantities which 
we will order, 


The pretotype is up and running, however, if there is something 
else which you would specifically like ta see on the board, 
iclock, RS423, etc) please let us Know that toc. May not be too 
late ta change the layout. 


aS pS ee 
te te Se Oe 


758 DEF FNfield(strings, length) 792 REM right justified, in a field 
751 REM Takes string$, and outputs it 733 REM length4 chractors long, 
768 = RIGHTS( STRING#(lengths," ")+st 
ring , length) 


RRR ARRARR RELEASE RCORELECOCESECESO CCC OROOORLORELORELOS 
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The GRAPHICS ROM 
from Computer Concepts. 


Reviewed by Tim Ryan. Cost approx $85. 


I received my copy of the Graphics ROM as payment for 
programming services rendered, actually using the ROM. It was 
very welcome! I have now put it to a small amount of use, and 
thought that I should review it for others’ information. 


The first use I put it to was sprites, and I must say that other 
than the amount of memory that it gobbles (which is unavoidable) 
I was most impressed with the results. It 15 possible to have 
sprites in MODES @, £ and 2 only, which is a shame but does mean 
that the user has the most colours available. 

My first sprites were of a tractor, and for those I used the 
largest available sprite in MODE 2 which is 24#24 pixels. The 
sprites can be sized as ane, two, or three ‘characters’ in each 
direction (one character=8#& pixels). I found it very easy to 
move the sprites, and with a little care was able to minimise 
the redrawing flicker as the sprites moved. It is of course 
impossible ta totally eradicate flicker in a BASIC driven 
software sprite system but the flicker really was minimal. 

There is ome very interesting part to the sprites; and that is 
the ability to design several similar ones as an amimation 
sequence, or ‘film’. Once they are defined, by repeatediy 
putting up the sprite film mumber, the screen display cycles 
through the designed sequence automatically. An excellent 
animation effect can be achieved, 


The next ROM routine I tried was the colour fill routine. 
Unfortunately, although this is a flood fill (i.e. it will fill 
any complex shape), it is rather slew. I Know it is hard to 
write fast machine cade fills for the Beeb as 1 have tried 
myself, but I would have thought it was possible to be faster 
than this routine. Apart from the speed, though, it certainly 
works perfectly. 

There are many other parts ta the ROM, some of which I have nat 
yet tried cut, others I have just touched on. I will list some 
of them with my comments: 


3D drawing. This routine allows the user to specify a third 
coordinate in any plotting action which represents distance into 
the screen. This makes it possible to draw 3D objects and move 
them around the screen. Not only is DRAWing handled, but 
triangle fills also work. Looks most handy for 3D affects in 


FI PAFFPADIPID IF DAD IFIP FI IFIP IF III FI FF IFFT EFF 
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games! 


Big text. This routine allows big text to be drawn on the screen 
at any angle and direction (provided the ROTATE command has been 
used first to orientate the screen). It not only allows coloured 
text, but by using GCOLx,y where x>4 some interesting 
multicoloured patterns can be achieved. My only minor niggles 
are that the usual character set is used enlarged, which means 
they are rather chunky and the routine is rather slow (which 
suggests they are using standard 05 calls!), 


Turtle Graphics. I don’t Know much about this side of things, 
but I tried out ali the commands, an the system seemed to work 
fast and neatly. 


It is possible to redefine the screen coordinates in various 
ways such as rotate them, enlarge, or reduce them. This allows 
pictures to be replotted in different sizes and orientations. 


Computer Concepts has also provided a MODE &, which gives 10 
characters across the screen and only 8@ pixels, but means that 
i6 colours are available with only 1@K of memory! 


There are one or two other drawing commands such as CIRCLE, and 
ARC, and PATTERN (polygon drawing), which are fairly self 
explanatory. 


Well, as you can see, there is a lot to this ROM and even in the 
review I haven’t covered everything, let alone used all the 
commands! 


I feel the ROM is a good buy. Unfortunately I haven't seen the 
official ACORN one, so can’t compare; but I Know of two other 
pecple at least with this ROM in NZ, so there should sean be 
some software using it, flcating around. 


== 


Sp 


S| 7" 
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BEGINNERS SEMINAR 


Anne F, . 


For every program idea, there are hundreds of different ways of 
expressing it. Let’s just stick to BBC BASIC for now. Even so, 
there are still many ways to "skin a cat". 


Sandy W has sent in his program for an Electron which asks for a 
colour number, then prints out the logical colour number and its 
name, in that colour. As he says, it was fun doing it, and it 
does work. Here is the listing. To make it easy for you ta see 
where it is going, lines have been drawn to show where the GOTOs 
go to and from: 


REM Electron Basic Colours 
REM by S Wigram 
MQODE2 


#FX1G,75 
INPUT’ SPC1 "WHAT COLOGUR NUMBER?" “N 
IF NO=@ AND Né=it THEN GOTO128 
IF No=128 AND N<=143 THEN GOTO196 
COLOUR? :COLOURI23 
PRINT’"1S A WRONG NUMBER"““ "PLEASE TRY AGAIN" 
GOTC 46 
COLOURN 
PRINT" TEXT COLOQUR "SN:PRINT "CIN MQDE 2)" 
FOR V=@ TO 15 
READ At 
IF N=V PRINTSPC4"IS ";A% 
NEXT V 
GOTO258 
9@ COLOQURN 
200 M=N-128 
21@ FOR W@ TO 15 
226 READ AS 
236 IF MeW PRINT" BACKGROUND COLQUR" ;SPC2:N;" 15 "jas 
240 = NEXT W 
258 RESTORE 
2606 TIME=6 
278 REPEAT UNTIL TIME=175 
288 GOTO46 


364 DATA BLACK ,RED,GREEN, YELLOW, BLUE MAGENTA , CYAN ,WHITE 
;BLACK/WHITE ,RED/CYAN , GREEN/MAGENTA , YELLOW/ BLUE , BLUE/YELL 
OW ,MAGENTA/GREEN , CYAN/RED ,WHITE/BLACK 

318 DATA END 


FF FFVIII IF PIAA PI PID AFD AIA FD FSIS TIFF FF FID FFF 
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By way of contrast, here is another way of producing exactly the 
same thing on screen: 


16 REN Colours 

26 REM by me 

38 MODE2 

4@ *#FX9,75 

5@ #FX18,75 

6@ REPEAT 

76 REPEAT 

86 INPUT’ SPC1 "What colour number?"* NY 

98 IF (NZ>=@ AND N4%C=15) OR (Mied=128 AND N4K=149) 
THEN ok% = TRUE ELSE ok’ = FALSE:PROCwrong 

168 UNTIL okX 

114 TF NY%O15 THEN cal = N%-128 ELSE cal¥ = NY 

126 COLOUR N¥ 

138 RESTORE 

14a FOR I” = @ TO calé 


156 READ colours 

166 NEXT I¢ 

176 IF N¥%<ié THEN screent="text" ELSE ecreens = "back 
ground" 


186 PRINTscreen#;" colour is"’colour’ 

19@ TIME=@:REPEAT UNTILTIME2175 

266 UNTIL FALSE 

21@ END 

228 

236 DEF PROCwrang 

246 COLGURI28;COLOUR? 

298 PRINT? s;N¥s" is a wrong number"’“ "Please try again" 

266 ENDPRQC 

278 DATA black ,red,green,yvellow,blue ,magenta,cyan,whi te 
;black/white,red/cyan,green/magenta,yvellow/blue,blue/”yel] 
cw magenta/green,cyvan/red,white/“black 


There are several similarities and several differences: 


4. All the GOTOs have been eliminated by using REPEAT...UNTILS 
and IF THEN ELSE. A lot of people forget that BBC BASIC has the 
ELSE available. More on this some other time. 


2. VARIABLES 

Listing |: 

N the colour number 

V acounting loop to read data 

M to use an altered version of "N" 

W another counting loop to, read data 


FP IAFAPA FDI PAPI FD IIF AFF FIPS IFFT ASAD III FFI FFE FT ID 
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Listing 2: 

N% the colour mumber that was input - it has to be a whole 
number, and integers (ie variables with a % after them) are 
processed faster by the computer. Whilst speed doesn’t 
matter in this particular program, it’s a good habit to get 
into using them. 

1% a counting loop to read data. Every man and his dog uses 1% 
for this purpase, so why buck the system? 

col% an example of a "meaningful variable name" - it is perhaps 
more obvious that it is referring to a colour than "M" 

The second counting loop for reading data was not needed because 

the two loops in I were combined in II with the introduction of 

the variable screen$ 


3. RENAMING VARIABLES 

If you have more than one use for the input number, then it is a 
good idea to use different names if the value of that number is 
changed. This means that you will still maintain the original 
number no matter how you maltreat it, and also avoids confusion 
over what it means. 

This is demonstrated in I line 20@ and I] line 114. If. the 
input number was greater than 127 it will be a background colour 
number; but there isn’t enough data in the DATA statements to 
read 428+ times through for the caolour’s name. Since a 
background colour number is the same as the foreground colour 
number plus 128, it makes sense to Knock off that 122 before 
reading the data. Calling it M or col% also ensures that N or 
N% 1s still intact in case there are any other jobs for it to do 
(1 line 178) 


4, REMs 

Believe it or not, in a year or two when you goa back to a 
program, you will wish you had some of these to jog your memory 
quickly about what the program did, where it came from etc. 


5. UPPER CASE VS LOWER CASE 
BASIC commands must be in Upper case, so using lower case for 
other parts of the program contrasts more easily. Compare: 

6@ INPUT’SPCi"WHAT CCLOUR NUMBER?"’N 

8@ INPUT‘SPCi"What colour number?"’ N% 


é. Sandy stuck with the more legible idea of one statement per 
line. His original listing also had one line for each item of 
data. This is good as it makes it much easier to read through 
the program, make any alterations etc. To save magazine space 
however, the data were combined all into one line. Look also at 
line 9@ in II, It was getting rather long. and was shortened by 
throwing a section cut into PROCwreng. It could as easily have 


PAEPVID PIF III FID PII IAI F994 449949999999 99999999 9994999999449 
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read: 

98 IF (NZ2=8 AND NAMH15) OR (N4>=128 AND NA(=143) THEN ok% = TRU 

E ELSE ok% = FALSE:COLOUR7:COLQURI28:PRINT’ ;NA:* is a wrong numb 

er"’’"Please try again" 

The idea behind setting up a PROC to handle wrong responses has 

these ideas behind it: 
a) lt keeps the line easier to read 
b) a cursory reading of the listing doesn’t want to get 
bogged down in the exact detail of how a wrong answer is 
handled 
c) handling wrong responses might be required in some other 
part of an extended version of this program. By having it 
in a PROC it needs only to be typed in once in full. 


7. TIME 

The first listing wants a wait of 175/100 seconds before giving 
the next prompt. The second has changed it: 

from UNTIL TIME = 175 to UNTIL TIME > 175 

This is because you cannot guarantee that the computer will look 
at its clock at exactly 175 ticks. It may in fact only get 
around to looking at 174 and 176, but have been doing other 
things when 175 passed. Using the first method, if it didn’t 
see 175 on its clock, it hasn’t the brains to realise that if it 
sees 176, then 175 must have been reached, so it should go on to 
the next task. Instead it waits until the clock gets round to 
{75 again (takes about 35 weeks!) The second method ensures 
that if it misses 175, it will in fact go on when it sees more 
ticks than {75 have elapsed. In this program there should be no 
problem, but again, it is a good habit to get into, so you 
aren‘t caught on the hap when things like this matter. 


8. DATA END 

Here you don’t need it because this program doesn’t look for 
"END", and all the read loops look no further than 16 items; so 
will never get to the 17th. 
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BETA-—-BASE FILES 
Steve Williams 


Beta-base is a database product from Clares in the UK. Although 
in its standard form it is flexible enough for most 
applications, there are times where it simply won’t do what is 
required. It is possible to write your own programs to access 
files created and modified by Beta-base if you Know how the file 
is structured (read on!). 


The file ig in two parts and consists of a header portion 
followed by a data portion consisting of multiple fixed-length 
records. The header portion consists of 7 integers, followed by 
N sets of 1 byte/i byte/Integer/String fields (where N is the 
number of fields in the record). Of the 7 integers, the first 
and the seventh are something to do with deleted records, while 
the athers (in mo special order) describe the following: Max 
number of records, number of records used, number of fields per 
record, Offset of first record from start of file (i.e. length 
et tags data) and record length. For each field, data is as 
follows: 


{ byte - field length (1-255) 

i byte - Field type (@=string,f=integer,2=real) 
Integer - Offset of start of field within record 
String - Field name 


Deleted records have the string "#*" written inte each field 
position within the record. 


The following program will read a specified field within a 
specified record for a specified filename (created by 
Beta-base). Note that in its present form it will not handle 
deleted records too well. 


This could form the basis for a program which processed a 
Beta-base file sequentially in a way impossible using any of the 
standard options. 


S@REM REPORT PROGRAM 

28REM STEVE WILLIAMS 

SBREM 31/16/85 

4@REM TO READ BETA-BASE FILES 
SBREM 

SOCLOSEH8 

6OMODE 7 


PIPPIIFFFF IIAP IPA IPF IF III 999999 99949999999 999999999 459944999 
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SSINPUT"Filename " filenames 
7OPROCSe tupfile 
88CLS 
BSREPEAT 
SOINPUT “Enter record number " XY 
IBBINPUT "Enter field number " Y/ 
{QSPRINT fieldprompt${YZ) 3*/"; 
T1OPROCreadtile(xXt YA) 
1281F typet="INTEGER® THEN PRINT "INTEGER * ;V% 
{3G1F type$="REAL" THEN PRINT "REAL ";V 
14Q1F typeg="STRING" THEN PRINT "STRING °;V3 
JS@PRINT "Press any key..." 
1 68A=GET 
Y7OUNTIL FALSE 
{OOBREMEHKEHEREE® 
181 BREM PROCsetupfile 
{OB ZAREMHEHKKHERRE 
I@3HDEFPROCse tuptile 
{848M/=O0PENIN( fi }ename$) 
1@5]F Mé=@ THEN PRINT*File not found®:STOP 
JOG INPUTHME XX lastrect,fields# maxrecordsd reclength4 of fse ty xX 
1B78DIM fieldlengthé(fields4) 
1O88DIM fieldtyped‘fields#) 
1O9ADIM fielaoffseti{ fields/) 
J18QDIM fieldpromptd(fields/) 
WTOFOR X4= 1 TO fields/ 
11 264i eldiengthi(xXi)=BGETRY, 
1}3BFieldtyped(X4)=BGETAMY 
{140INPUTHMZ, fieldoffse t#<xX/) 
11 5@INPUTHMZ, fie }dpromp t$(X4) 
1166NEXT XM 
ti 7BENDPROC 
{23OREMHERAHERERE 
124OREM PROCreadfile 
{25GRENSEREEREHEE 
1268DEFPROCreadtile<recnumé ,fieldnums) 
1278PTRAMRot fse tit ((recnums-])#reclength/)+fieldoffset%(fieldnum/) 
{2BBIF fieldtype(¢ieldnum4)=8 THEN INPUT#MY VS; types="STRING® 
129G1F fieldtypeé(fieldnums)=1 THEN INPUTHH/ UZ: types="INTEGER® 
{3081F fieldtype/(fieldnumé)=2 THEN INPUTH#M: ,V: type$="REAL" 
134 GENDPROC 


Day fire cats rey ovens ti tu tire tits tire tart 
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DON’T CLS 
Tony Watton 


Some screens deserve more than a hurried flash into oblivion, a 
little effort can make them linger as they depart. There are 
several methods to do this.Here is one. 


1@ REM Alternative to CLS 
26 MODE i 

36 FOR print=1 TO 38 

46 PRINT"Don’t just CLS it...wave a window at it 
56 = NEXT 

66 FOR taihoa = 1 TO 186:NEXT 

78 FOR A= 31 10 4 STEP-{ 

88 =©VDU 28,6,A,39,A-3 

98 CLS 

{86 = NEXT 

118 YDU 26 

126 END 





Line $@ sets up a text window across the bottom af the screen 
and clears it while moving it upwards (7@ to 108). Changing 
lines 70 and 8@ (below) changes the window to one that expands 
from the top left corner. 


78 FORA = 6 10 31 
BR UDL 28,8,A,A+8,8 


It is possible to have more than one window and colour as well, 
Change and/or insert lines 7@ to 95. Obviously there are many 
possible combinations and variations and there should be one to 
suit your needs. 


70 FOR A= 8 10 38 
8 VOU 28,4,15,A+1,8 

85 COLOUR 129:CLS 

98 VOU 28,38-A,31 ,39-A,14 
95 COLOUR 138,CL5 


HKKEKHKHHERHEKKKHKHEKKKKKKHHHKHHRHEHHE 
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CHRISTMAS... 
WITH STRINGS. 


Anne F. 


You are all familiar with "Jingle Bells" resounding through the 
shops at this time of year. Now you can bring 1t in to your 
homes with this program., Not only does it play the tune, it 
also draws the reins for Santa’s reindeer. 


1@ REM JINGLE BELLS 

26 REM with String Art 

38 REM 

40 REM Nov “82 rev. Nov’85 

58 REM 

$@ ENVELOPE! ,3,4,9,8,0,8,8,121,-10,-5,-2,126,126 
78 REPEAT 

86 #fx15 

96 tune_end = FALSE 

168 RESTORE 

11@ MQDE@ 

120 PROCetartstring 

134 PROCstring’ 

146 REPEAT UNTIL ADVAL (-7) > 14 
156 UNTIL FALSE 

14@ END 


18@ DEFPROCstartstring 
190 XM=RNDC1280) :YM=RNDi 1286) 


20@ LY=RND( 1286) sM“=RNDi 1624) 

216 UX=28-RND* 48) :V4=20-RNDI 48) 

220 PXH=20-RND“ 46) :Q4%=24-RND( 48) 

238 ENDPROC 

248 

258 DEFPROCstring 

246@ REPEAT 

276 time4 = TIME + 5 

288 MOVE X4,Y% 

278 DRAW LY Mx 

308 TF XMtUM91279 OR X4+UK 4G UX=-Un 
316 IF YH+V491823 OR YAtVK< 8 VARY 
328 TF LYtPO1279 OR LX+PH<G Pu=-Py 
338 TF M4%+Q4%>1023 OR MM+Q%<8 QY=-O% 
S48 XYEKY TUM YAR YA AU 

358 LY=LY+ PH SMAEMY + O4 

368 REPEAT 

376 IF ADVALC-6)>@ AND ADVAL“-7)>6 THEN PROCtune 


FP PIPFIFIAF IP IPI IIA PF IPI I FIFI IPPF PFI IPF IIFIFII III II III IF 
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388 UNTIL TIME>time% OR tune_end% 

390 UNTIL tune_end% 

408 ENDPROC 

410 

420 DEF PROCtune 

430 LOCAL chan% pitch% dur% 

4489 READ chan% ,pitch%dur% 

450 IF chan%=3 THEN tune_end%=TRUE ELSE SOUND chan%;i, 
pitch%,dur% 

460 ENDPROC 

4790 

480 DATA = 154371612173 5654141374652 89 5654543774212 5164 620958 
145137,6,2,573 694) 137) 92:89 ,6;4, 137, 42 yoy 1 Oddy 289,611) 437,62 
17346115149 612489) 64454245952,184 65442953 52,89 5651513712452 57 
3642429 16 52)104 966247396 

490 DATA = 1,444,6,2593,6.4,141,6,2,109,6,4,144 171273184, 144,3 
1 731Gb 144 6 524109 651 1371612589 604 13756 21181 bl 13878 ,2 
5734641113753 

5@0 DATA = 4$,43716,2,10956,4,129,6,2,93 
TER ACH TEGEP AEE Sa aPe Ball Pee OW at - TE a ee s2 

51@ DATA = 4,1375612,7316,1,137,6, 
145437962573) &) { 11375652589 9654, 137, 42 
23,64,149 46,2529, by 4, 424; 5952 ,404,6, ty 
346,2,59 96524104 965247316 

52@ DATA = 41:4441:6,2:931614,144,6,2,109, 6yh14445952,7316,4,441,3 
2973969 d 444d 1b 92, 109,654, 137625 $946 4454371652149041654,137,3,2 
5734694,4137,3 

53¢ DATA { 1449,6,2,69, 6 { 1449 ,6,2,84,601, 144,5,2, 444,6,4 12956 
OF Gah 12 £,6)2)73) 652,104,652 ,73, 48 

549 DATA 2,0,121351 56 
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3D TEXT 
Neville T. 


Here at last is Neville Tomlinson’s program which produces 
rather stunning 3D visual displays ideal for headings, titles, 
book covers etc. Neville says that he has had a lot of fun 
showing it off to friends and providing them with printouts of 
their names: 


The program begins by asking you what sort of background you 
would like drawn - stars or atoms. You then input the data for 
each star/atom tc be drawn, (X,Y coordinates of the centre, 
size in the form of inner and outer circle radii), The program 
is capable of handling up to three lines of text. Each line of 
text input may have an associated ‘viewing distance’ - the 
default is 1@ but you am enter anything from 4 up. A viewing 
distance of 4 gives about one letter to a screen’ The larger 
the viewing distance, the more text that can be fitted in - I 
generaly use a viewing distance of about 12. If you find that 
the text is not centered nicely then just precede the line with 
a few blank spaces when you enter it. 


The program sets up function keys to produce characters 224 - 
232. So, if you want to produce a 3D graphics characters (or 
include one in your line) just define it in the normal way 
(VDU23) then enter it by pressing the appropriate function Key. 


The next stage asks you whether you would like a logo. This is 
just a little four line message displayed in the right hand 
lower corner of the screen. The logo text is automatically 
centered - and again graphics characters may be used. 


Once the picture has been drawn, you can start again by pressing 
return. If you want a screendump, add a screendump in lines 
70-98, then call it at 440. Now evey time you press "P" the 
screen will be dumped. Press Q@ to quit, the «RETURN? Key to 
rerun. 


To get you started, try entering two background atoms - both 
centred at 640,512. Enter one with outer radius 504, inner 
radius 200 : the other with an outer radius of 560, inner radius 
5@. Try a single line of text over this, like "__Hello” ( 
denotes a space), with a viewing distance of 11. Anyway, you 
are bound to have a lot of fun with this program. 


For those of you who want to Know a little more about the 
program, a few brief comments: 


DAF PAPIPFIFF DFS F IID PIF IF IF IF 999999999 9499.9999999994999 4999 
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The PROCs PROCstar and PROCatom are used to draw a single 
star/atom. Details for each are held in the badd) - these 
details are entered in PROCatomstar. In these PROCS X% and Y% 
are the centre coordinates, Ri is te outide radius, R2 the 
inside radius, and (in PROCstar) N% is the number of paints. 
You probably recognise PROCstar from an earlier edition of 
Beelet. Both these PROCs are completely self contained and 
could easily be cribbed for other programs. 


Lines 260-290 form a REPEAT .. UNTIL loop which draws the 
background. The finished background is signified by the value 
9,9 as the next element of the bqd array. There is a maximum of 
nine stars/atoms which can be drawn, If you want more, increase 
the DIM in line 428 and the variable pnt% in line 748, which 
Just counts how many STAR/ATOMS have been entered. 


The text is entered in PROCtext, the logo in PROClogo. 
PROCsetup does the auto-centering and printing of the logo. 
Lines 380-400 call the procedure to draw the 3D text for each 
line. The distance down the screen is determined by the last(?) 
parameters. The top of the screen is @, the bottom somewhere 
around -2000. The real "meat" of the program is PROCdraw called 
with three parameters, Wé (text to be printed), vd% (viewing 
distance entered in PROCtext) and HEIGHT (the position on the 
screen, @ to -2000). This Proc steps through each character in 
the line of text. If the character is undefined, the definition 
is read from page &C@@, otherwise the definition is read from 
the ROM (starting at &BFO@). Offsets are calculated from the 
ASCI] valuea of the characters. The definition is stepped 
through from bottom to top, each “dot" of the character being 
printe in 3D block. Each face is a different calour. The 
overall effect is achieved by printing “blocks" on top of or 
beside each other (as you will see by watching the program draw 
text.) PROCcube draws a single "block", the three faces being 
drawn by PROCfront, PROCtop and PROCside. The complicated 
looking line 1170 is automatic scaling. In the first parameter 
of FROCcube, the -30@@ is the affset from the RHS of the screen. 
ade that’s about it - ae design some 3D headings of 
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18 REM 3D Titles 

20 REM by Neville Tomlinson 
38 REH May 1985 

4a 


30 N ERROR MODE7:]F ERR=17 RUN ELS 
E REPORT:PRINT" at line "sERL:EN 
i) 

6: 

76 REM J you will be dumping to a 

88 REM printer, #LOAD the screen du 


mp 
98 REM routine here. 
188 : 
118 ¥TV255 
126 DIM bodii8,4) 
138 ¥FX225,224 
148 REPEAT 
158 = bgdé8,0)=9.9 
168 MODE7:FOR X4=2T03;PRINT TABS, 
XZ) CHR$ 1 34CHR$ 1 S7CHR$1 32CHRS 
14{SPCB"3D Text"SPCIOCHREI 564 
tNEXT 
178 = VDU28 8 24,394 
186 PRINT?’ CHS 29" Backgrounds:"/ 
“TAB(S)°S. None"’TAB(S)"2, Sta 
r'TABLS"3, Atom® 
198 | PRINT’’*CHRE132"Which Option : 
"ys sREPEAT sbackgrd=GET-48 UNTIL 
hackard)8 AND backgrd<4 
208 = CLSsTF backgrd>! PROCatomstar 
248 = MODEL :COLOUR3:PRINT TAB(16,33° 
3D Text" :YOU28 831,99 ,4 
226 = PROCtext: CLS 
238 = PRINT’’’*"Do you want a logo ? 
"+ sREPEAT :s fogo$=GET$ UNTIL IN 
STR("YN" , logo$) 
248 IF logod="¥" PROC age 
258 
268 MODE! WVDUL9 1358519 ,2, 238519, 
3,438; 
278 IF "packgrd)! PROCbacKground 
288 = VOU29 8:8; 
ae IF logos="¥" PROCse tup 
3 
318 UDU29 448 5988 NGLE=68 57-208 
8 


328 = Sin=SINRAD(-ANGLE) :Cos=COSRAD( 


“ANGLE) 

338: 

348 REM Third Parameter of PROCdra 
wis 

358 REM distance down the screen. 

368 REM B=top, -2888=bot ton 

378: 

388 = JF LENA$>@ PROCdraw(As ,01#-588 
@) 


$ 
398 IF LENB$)@ PROCdraw( BS ,D2#-588 
7888) 
460 IF LENC$3@ PROCdraw(C$ ,D3#-588 
71688) 
41a: 
426 REPEAT 
436 AFGET:IF A=13 RUN 
448 IF A=ASC*P*: REM Cal) Screen 
Dump 
456 UNTIL A=ASC*O" 
468 UNTIL A=ASC*O" 
478 END 
480 : 
498 DEFPROCSe tup 
388 K=LEND$ sIF LENES)K K=LENE$ 
514 1F LENFS)K K=LENFS 
928 IF LENG$>K K=LENG$ 
538 D$=STRINGS! (K-LEND$)/2," "d+DS:F 
$=STRING$* (K-LENES)./2,° ")tE$:FS 
=STRINGS((K-LENFS)/2," ")4F$:69= 
STRING#((K-LENG$3/2,° ")+68 
548 X4=1286-K#32 
958 VDUS:MOVE X%,148;PRINT DS:MOVE X 
“,A@5:PRINT ES:MOVE X41, 76:PRINT 
FS:MOVE X4,35:PRINT 6 :VDU4 
568 ENDPROC 
578 : 


588 DEFPROCbackground 
598 pntv=B:GCOLE ,2:REPEAT 
680 «= TFbackgrd=3 PROCatom{(bad(pnty, 
8) ,badipntz 1) ,bod¢pnt%,2) ,bgd 
{pnt4,3)) ELSE PROCstar<bgd‘pn 
t4,8) ,bgdipnts 1) ,bod¢pnty 2), 
bod(pnt# 3) ,bgd<pntx ,4)) 
618 patvepntéti stNTIL bod(pnté = 
9,9 
628 ENDPROC 
$36 DEFPROCatomstar :pnt/=8 


648 PRINT’ TABC14)CHRS129"Draw A’ ;:! 
F backgrd=3 PRINT*n Atom’ ELSE P 
RINT® Star* 

656 VDU28 8,24 ,39,8:REPEAT CLS: PRINT 

TAB(10, S)CHRS133"*Centre X*/’T 
ABCIGICHRS133"Centre Y*’’ TABS 
B)CHRS133"Outer radius*’ “TABI 
B)CHRS133"Inner radius® 

668 IF backgrd=2 PRINT’ TAB(16)CHRS 

133°No,. of points" 

678 INPUT TAB(25,5)X4¢:1F X48 OR X 
AY1288 X4=648 

688 = INPUT TAB(25,7)YA:IF YA<8 OR Y 
491824 Y#=512 

698 INPUT TABC25,9)RIZ:1F R1488 

Ri4=508 

706 INPUT TAB(25, 11 dbgd(pnt%,3) 

718 0 JF backgrd=2 INPUT TAB(25,12)b 

gdipnt%,4) 

728) bod(pnté ,B=Xirbadipnté, 1 =¥%: 

badipnt% ,2)=R1M 

738 pntd=pntZt) INPUT TAB(18,14)"D 

raw another Y/N ?* :REPEAT:K$=6 
ETS: UNTIL INSTR¢"YyNn" ,K4) 

746 UNTIL INSTR(*Nn® ,K$) OR pnts 

730 bad{pnt¥ 8=9.9:VDU28 8 24 ,39,4 

768 ENDPROC 

778 + 

788 DEFPROCtext 

798 CLS:COLQURS PRINT TABCIS,2)* TEXT 
ENTRY: * 

888 COLOURI:PRINT’’’"1@ is default V 
jewing Distance’’’"The larger th 
e Viewing Distance, the'’*more ¢ 
ext you can fit in®’ :COLQUR2:PRI 
NT*Function keys have been set ¢ 
o graphics characters..." 

B18 COLOURY:PRINT’’*Line 1: "ssINPU 
TLINE AS;COLOURZ:PRINT "Viewing D 
istance ";:INPUT Di:IF DI¢4 Di=! 
g 


828 COLOURI:PRINT’’*Line 2 : "ss INPU 
TLINE 8$:COLOUR2:PRINT "Viewing 0 
istance ";sINPUT D2:1F D2¢4 D2=1 


8 
830 COLOUR) :PRINT’’"Line 3: ";:INPU 
TLINE C$:COLOUR2:PRINT"Viewing D 
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istance “;:INPUT D3:IF 0344 D3=1 


8 

848 ENDPROC 

858 : 

868 DEFPROCI ogo 

878 COLOUR@:PRINT TAB(i5,2)"LOGO ENT 
RY:"’/’ COLOUR! :PRINT*Function k 
eys have been set to graphics ch 
aracters..."” :COLOUR2:PRINT "Auto 
matically Centred” 

888 COLOQUR3:PRINT’‘*Line 1: "s:TNPU 
TDS:PRINT’ "Line 2 ; "y:INPUTE$:P 
RINT’*Line 3: “s:INPUTFS:PRINT’ 
"Line 4: "s:INPUTGS 

B98 ENDPROC 

988 : 

918 DEFPROCStar(X% 74, Ri ,R2 NAD 

928 LOCAL A,D,IMsVDU29 XA Y4; 

938 MOVE Ri ,@:A=8:0=P1 NZ 

946 FOR I4=8TON¢:AEAtD DRAW R2*«C054, 

R2xSINA 

956 A=A+D: DRAW R1*C0SA,R1xSINA 

968 NEXTIY 

976 ENDPROC 

988 : 

998 DEFPROCatom(X% ,Y% Ri ,R2) 

1888 LOCAL PS,PC,NS,NC 

$618 PS=SINRAD45: PC=COSRAD45 :NS=SINRA 
D-45 :NC=COSRAD-45 

1828 MOVE XZ4R2,Y% 

1838 FOR A=BT0368 STEPIS:DRAW X/+R2%C 
OSRADA , YA+R1 xSTNRADA :NEXT 

1848 MOVE X%+R1 YY 

1858 FOR A=AT0368 STEPIS:DRAW X4+R1#C 
OSRADA , Y%+R2%S INRADA :NEXT 

1868 MOVE XA+R2#PC ,YA+RI ¥PS 

1878 FOR A=8T0368 STEPIS:DRAW XZ+R2#C 
OSRADAXPC-R1 #SINRADA#PS , YX+R1* 
COSRADAXPS-R24SINRADAPC :NEXT 

1888 MOVE XZ+R2aNC YZ+R1 ¥NS 

1898 FOR A=BT0360 STEPIS:DRAW X4+R2¥C 
OSRADA#NC-RI xSINRADARNS , YH#R1# 
COSRADAINS-R2*SINRADAENC NEXT 

1108 ENDPROC 

1118; 

1128 DEFPROCdraw(W$ ,VD% HEIGHT) 

1138 FOR Hé=1TOLENUS 
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1148 IF ASOMIDS(WS HY, 199223 Ly=4ce 
B+Bx(ASCMID$ (US ,HZ, 1)-224) :GOT 
01148 

1150 LY=&BFRG+3xASOMIDS (US HZ, 1) 

1168 FOR I¥=7T08 STEP-1 

1178 FOR J¥=7T08 STEP-1 

1188 IF (LY2IVAND2‘IZ) PROCCUBE 

(-3000-((VDN(~5080) #(UDH45 
880) x,5)4BOG8H7-J7#100 HE! 
GHT-17.#188 8) 

1198 NEXT 

1280 NEXT 

1219 NEXT 

1228 ENDPROC 

1238 : 

1248 DEFPROCCUBE(XY YY, 2%) 

1258 PROCFRONT(XY, Y%,22) 

1268 PROCSIDE/+108,Y%,2%) 

1278 PROCTOP(XY ,YU+180 2%) 

1288 ENDPROC 

1298 ; 

1388 DEFPROCFRONT(X% ,Y%,2%) 

1318 RESTORE! 338 :PROCFACE(!) 

1328 ENDPROC 

1338 DATA4,8,8,,8, 

85,108,188, 

1348 : 


4,168,0,8,85,8,106,8 


1358 DEFPROCSIDE(X%,Y%,2%) 

1368 RESTORE! 388 :PROCFACE(3) 

1378 ENDPROC 

1388 DATA4,@,0,0,4,0,0,188,95,0,108,8 
85,8, 188, 108 

1398: 


1486 DEFPROCTOPCXY YZ ,24) 

1418 RESTORE! 430 :PROCFACE! 2) 

1420 ENDPROC 

1438 DATA4 ,8,0,8,4,0,8,108,85,108 8,8 
85, 166,8,198 

1448 : 

1456 DEFPROCFACE(N) 

1468 LOCALIY 

1478 GCOLB,N 

1488 FOR T=1T04: READ K4,A4 BY CK 

1498 PROCPCKY XHAY HARM, 244%) 

1388 = NEXT 

1518 ENDPROC 

1528 : 

1538 DEFPROCPAKM XY, 24) 

1540 x¥exdeCos-2445 in rzv=2eCastXA xs | 


f 
1358 y4=¥y 
$368 MeS/¢ 20 -D0) SPLOT Kot xA8N , ya 
1578 ENDPROC 


FEBRERO 


oe 


BEE BLETSINAHEAP? 
BIND THEM TO YOU... 


with a Binder from the User Group. 


Only $2.50 +65c p&p 


Need holes punched in magazine, 
then will hold many a year’s issues. 
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REHASH 
Neil Gordan 


Last month a previously unknown poem by William Shakespeare was 
discovered gathering dust in a library in England. How did they 
Know it was by Shakespeare? They would have compared the style, 
counts of specific words and word sequences used, and so on, 
against those of other works by Shakespeare. 


Now you, too, can generate Shakespearean works. All you need to 
do is provide some text (say, a sonnet or two) for this REHASH 
program and it will regurgitate new text that has strong style 
similarities to the original, even if it doesn’t make a lot of 
sense, 


The technique is based on something I read in "Byte" magazine 
earlier this year. The idea is only to output strings of 
characters that occur in the original text. If the matching 
strings are short (say just 2 characters) then the results will 
be rather un-English like. However, if the strings are 4 or 5 
characters in length, the cutput text contains mostly proper 
English words with a few new conglomerates. A length of 7 
characters results in phrases appearing, and with 1 characters 
large sections of the original text are reproduced. 


We first load the original text file into memory, then choose a 
random place to start. The next ‘nmmatch’ characters are saved 
as a string down in zero page (starting at ‘word’). For each 
new character produced, we start at a new random place in the 
text and look for a match to the current string. When we find 
it, we output the next character in the text, add it to end of 
our string and drop the first character of the string. 


I originally tried doing the search for a match in BASIC, but it 
was SO painfully slow that I had to resort to the machine code 
version given in the program. The main awkward bit is wrapping 
around to the start of the text if you don’t find a match before 
reaching it. Looping can be a problem for a couple of reasons 
that I won’t go into, but I think I’ve trapped all the 
possibilities. 


The text produced will be written to the (MODE 7) screen. You 
might like to switch to MODE 3 to make it easier to read if you 
can still fit the original text into memory. On the off chance 
that you think you might produce a masterpiece you can choose to 
write the output to a new file. When you get tired of the 
current cutput, press any Key and you get another go at the same 


FPFPPIPIFIFAP FIFA IAFF III FFF ES 
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text (try using a different match). 


As an example of the output, the following short segment was 
produced with a 5 character match from my President’s Report in 
this issue, and is totally recognisable as such: 


The results resoundingly favour of the questionnaires that we 
were looking for replies to each side, the question, the 
accumulated surplus to each option. The bimonthly newsletter, 
Bits and frequent questionnaires. This bar replies to all those 
ticked "Don’t Know" or, presumably not make it. Adding up those 
ticked "Don’t Know" or, presumably not Knowing members, rather 
the popularity stakes, with the bottom of them replies to have 
been misinteresting of tardy renewals, 


AS you can see, the results are rather entertaining - I hope you 
have fun with the program. Among other things, you can also use 
it on *SPOOLed BASIC programs to write new programs - no 
guarantee they'll work though! REHASH should be a.boon to the 
editor tao - in case of lack of material for "Beeblet” just take 
any old article and feed through REHASH for instant new article. 





t bRRS Paaee 
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16 REM Rehash an existing text file 
26 a (c) Neil Gordon - December 19 
Hi 


38 MODE 7 : REM Could be MODE 3 if i 
nput text file is smal} enough 


49: 
58 REM Get file name and load inton 
emor-y 
48: 
76 REPEAT 
86 PRINT “Enter Input Text File Na 
mes "3 
98 INPUT: $}1e$ 
188 = channe =OPENING fi led) 
118 UNTIL channel >é 
128; 
138 size=EXTHchanne! 
148 CLOSE#channel 
158 DIM command 58,code 168,text size 
168 $command="LOAD “+filed+* "4STR$~t 


ext 
178 X4=comand MOD 256 
188 Y4=command DIV 256 


198 CALL &FFF? : REM OSCLI 

208 + 

oi re Loop aver rehash attempts 
738 REPEAT 

248 = PRINT?’ 


258 «oF FNask( "Write output to a new 
file") THEN REPEAT INPUT "Qutp 
ot file name: "4ile# : channe 
J=OPENOUT( $i le$) : UNTIL chan 
ne}>8 ELSE channei=8 
268 == REPEAT 
278 INPUT "Match how many charact 
ers? (1 to 10): ° nmatch 
286 UNTIL nmatch>@ AND nmatchid} 
298: 
386 = pmatch=nmatch-3 
318 = length=size-nmatch 
326 = PROCassemble 
338: 
348 REM Start off in random positio 
f 
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358: 
368 = PROCstar tup 
378 = REPEAT 


388 last='pointer 

398 'pointer=text+RNDi length) 

488 CALL code 

41a IF ?char=255 THEN PROCstartup 
: Ichar=13 

428 IF ?char>2? THEN VDU 32 ELSE 
IF 2char}3) THEN YDU 2char E 

LSE IF ?char=13 THEN VDU 13,1 


8 
438 IF channe}()@ THEN BPUTH#chann 
el, char 
448 IF Jast=!pointer THEN 2\'pain 
terd=8 : REM Avoid loops 
458 UNTIL INKEY(8)>8 
468 CLOSE¥channe} 
478 UNTIL FALSE 
488 END 
496 : 
368 DEF FNaské question’) 
318 LOCAL char 
528 PRINT question$+” {YW):"; 
338 REPEAT 
548 = char=GET 
558 oF char=ASC"Y" OR char=ASC*y*® 7 
HEN PRINT "Yes" ; char=! ELSE ! 
F char=ASC*N* OR char=ASC’n® Th 
EN PRINT "No" ; char=8 : ELSE 
har=2 
568 = UNTIL chard32 
578 =(char=1) 
388 : 
598 DEF PROCstartup 
688 'pointer=text+RNDi | ength) 
618 FOR T4=8 TO nmatch 
628 string?T4=24(' pointer +14) 
636 NEXT 
648 ENDPROC 
658 : 
668 DEF PROCassembie 
678 pointer=&78 
688 char=&74 
698 count=&75 
788 string=&76 
718 


728 FOR pass=@ 10 2 STEP 2 
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738 
748 
738 
768 
778 
786 
798 
B88 
B18 
828 
836 
848 
858 
868 
876 
888 
898 


916 
9728 
938 
948 
958 
968 
978 
988 
996 


1488 
1018 
1828 
1838 
1848 
1058 


988. 


PY=code 
[OPT pass 
LDA #254 
STA count 
strynext 
LDY #8 
loop_Y 
LOA <pointer),Y¥ 
CMP string,Y 
BNE nomatch 
INY 
CPY H#inmatchtl) 
BM] Joop_y 
LOA ‘pointer),Y 
STA char 
TAX 


\ Move string down 


LDY #6 

loop 
LDA stringt!,¥ 
STA string, ¥ 
INY 
CPY Hnmatch 
BNE loop 
STX string,y 
RTS 


shomatch 
CLC 
LDA pointer 
ADC #i 
STA pointer 
LDA pointer+i 


1060 ADC #8 

1878 STA pointer+] 

1888 CMP Hii texttlength)DIV 
256) 

1096 BM] ok 

1188 LDA pointer 

1118 CMP 4((text+lengthIMOd 
258) 

41128 BM] ok 

1130 LDA #(text MOD 254) 

1448 STA pointer 

1158 LOA Hi text DIV 254) 

1148 STA pointert! 

41178 INC count 

1188 BNE ok 

1198 


1268 \ Gops - looping (probably stuck 
at end of text) 

1216 \ Indicate by a strange character 

a \ and Tet BASIC fix it up 

236 


1248 LDA #255 
1258 STA char 
1268 RTS 

1278 

1288 .ok 

1298 UMP trynext 
41388 

1318 ] 


1328 NEXT pass 
1330 ENDPROC 
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FINDING STRI 
BASIC KE YWOR 
WHERE and *F VAR explained 


Don Austin 


NAME of program: WHERE (source program) 
*FVAR (Find VARiable, machine code) 


PURPOSE: To list the line numbers and the cantent of the line(s) 
wherever the target string or token is found. 


SETTING UP: Type in the listing below. If the listing is 
correct, line 172@ will tell you. When correct SAVE the listing 
as "WHERE" and Keep it filed away. Then *SAVE the machine code 
as shown in line 1728. 


DETAIL: All users 


To use the program, just type *F VAR (upper or lower case). This 
will load the program into page &98@ which will NOT disturb your 
BASIC program. Once loaded the program will initialise itsel/ 
and let you Know it’s ready to use it with the prompt: 


Syntax: LINE <string/target value> 
Set *#FX225,<Keyword token in decimal? Press Key f@ for targe? 
value 


It is not necessary to type *F VAR each time. Once the prompt has 
appeared, just use the *LINE command whenever needed. 


Cassette users could either change the &A@@ in lines 106, 1626 
to &C8@ if they are not using the user definable characters or 
set PAGE to &1¢0@ and change the &96@ to &£0@ and then #RUN 
FVAR. 


Finding words that are recognised by BBC BASIC is made tricky by 
the fact that BASIC does not store Keywords like PRINT as a word 
at all but as a single byte called a "token". Thus to find a 
BASIC token such as PRINT, it is necessary to Know what its byte 
value is. That is the purpose of the procedure "PROCtokens” in 
line 40, It lists all the BASIC keywords and their values in 
decimal. Two have no Keywords, that’s right. 


FF PPVIIID IFIP FIFI I DIDI FFI FFF FFI FI IFFT IDI FFAS IF FIFI III 
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Two examples 
HRERHEHEERER 


To find a string 


({)First of all, get the program from disk - type *FVAR and 
press RETURN. You see: 


>#F VAR 


Syntax: LINE <string/target value> 
Set #FX225,<Keyword token in decimal? 
Press Key f@ for target value 


(2)Say the wanted string is the variable “flag%", so type #LINE 
flag% and press RETURN. You see: 


P*LINE flag 


RECESSES SESE CCEECLOLCLSSSS ASSES CEES CESS S TSEC ESE CECE CELE. 


- Clive Williamson 
- 208 pages (price unknown) 


This book is subtitled "The indispensable guide to your home 
computer", a fairly arrogant assertion. In it’s 28@-odd pages, 
the book attempts to cover every topic possible, from how to 
plug all the bits together to a description of how Bitstik 
works. Inevitably it fails to cover any single area in detail 
and I suspect that the author has tried te do too much. That’s 
not to say that what is there is not well-presented. There is a 
Section on further reading, and a list of contact addresses 
{user groups etc), both very useful. 


This book duplicates a lot of what appears in the User Guide, 


{in arguably a more readable form), and in all honesty I could 
not recommend it to anyone bar the absolute novice. 
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18 REM WHERE finds variable or token 
in a BASIC listing, giving the 1 

ine 

28 REM number(s) and the line conten 
ts (C) Don Austin, Tokoroa N2, 1 
985 

38 MODES 

48 PROCtokens 

58 MODE 

68 osby te=&FFF4:osrdch=eFFE@ soswrch= 
&FFEE :osnew]=&FFE? :osword=&FFF I 

78 base/=&78:] end=&72: 4 lagé=473:1 ine 
YeG74slinelenvea76:star tye&77 

88 found/=&79 sascH=&7Asend/=k7B real 
lend=&7E tex tZ=&8F : tempy=k8d 

98 


{80 FORK=8TOSSTEPS:P=8 988 
116 =f OPTKY 
128 .start 
138 LDA Hine MOD256 
148 STA &208 
\ Set USERV to point t 
o start of routine 


158 LDA Wline DIV256 

148 STA &281 

178 BRK 

188 EQUB 255 

198 EQUS"Syntax LINE <stri 
ng/target value?" 

288 EQUB 18 
EGUB 18 
EQUE 13 

218 EQUS*Set #FX225, (Keywor 
d token in decimal)" 

228 EOUB 18 
EGUB 13 

238 EQUS"Press key £8 for ¢ 
arget value" 
EQUB 13 

248 BRK 

250 line 

268 CMP #1 

278 BEQ code 

288 RTS 

298 .code 


388 


318 
328 


338 
348 


358 
368 
378 
388 
398 


488 


410 
428 


438 
440 
458 
468 
478 


488 


498 


388 
318 
328 
338 
348 


398 


368 


388 
598 


text 


token 


s loop2 


45 


STX text® 
\ X and Y point to th 
e string 
STY textut! 
LDA #14 
\ Set page mode 
JSR oswrch 
LOA &18 
\ Find PAGE 
STA basedti 
LDY 48 
STY base’ 


LDA (text#),Y 
\ Get the string 
INY 


\ and find the LEN 
CMP 8127 
BCS token 

\ Vf value } 127, it 
must be a token and LEN 
=]. 
CMP 413 
BNE text 
DEY 


STY lent 

\ Store the LEN 
BEQ done 

‘no string sa retur 
n to BASIC 
JSR &BSbE 

\ PRINT the expanded 
token to confirm 
JSR osnew! 


LOY dH 
STY flag 

\. Set flag te not rep 
eat the line listing 
LDA (base) ,Y 

\ Get the current Jin 
e number 
STA linedtl 
INY 


LOA (base4) ,Y 
STA linex 
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686 
618 


628 
638 
648 


658 
668 
676 
688 
670 
768 
748 
728 
738 
748 
756 


7668 


828 
838 


848 
858 


846 


search 


again 


-loop3 


INY 
LDA (base) ,¥ 
\ Get the line’s leng 
th 
STA reallens 
SEC 


SBC 44 
\ Subtract 4 
STA linelend 
\ to remove the non-c 
haracter bytes 
CLC 
LDA base¥ 
ADC #4 
STA star ty 
\ Add 4 to get to the 
start of the line’s 
LDA base/ti 
‘, contents 
ADC #8 
STA star tit] 


\ Start 
of the search routine 
LOX #8 

\ Set the X counter 
STX tempi 

\ and clear these tem 
porary locations 
STX tempat 


LOY #&FF 
STY founds 
\ Set the found flag 
= TRUE 
INY 
\ Get the Y¥ counter = 
8 


LDA (texts) ,¥ 
\ Get the Yth char of 
the string 
STA asc% 
STY tempiti 
\ Remember the Y valu 
e 
LDA temps 
\ Get the X value 


870 
386 


B98 
988 
918 
928 


938 
948 


958 
968 
976 
988 


998 
1608 


1818 


1826 
1838 


1848 
1858 


1840 
$878 


41838 


1898 


.equal 


CL 
ADC temp+! 
\ Add the X value to 
the Y value 
TAY 
LDA (start) ,Y 
\ Bet the (XtY)th cha 
r of the string 
CMP ascy 
‘Are they the same ? 
BEG equal 
LDA #8 
STA founds 
\ Not found, so found 
~flag = FALSE 


LDY tempt! 
\ Restore the Y value 


INY 
CPY lenz 

\ and see if whole st 
ring has been checked 
BNE loop3 

STX tempitd 

\ Remember the X valu 
e in this Joop 

LDA found 

\ Is the string found 
4 

BE nctfound 

LDA flag 

\ Has the Jine alread 
y been PRINTed ? 

BEQ skip 

JSR printout 

\ PRINT the Jine numb 
er and contents 


shotfound 


LOX temp4t3 

\ Restore the X value 
for this loop 

INX 


STX temps 
Update ioe the orae } 
oop (X+Y) 

CPX lineleni 

\ Finished this line 
y) 


4188 
Hie. 
1128 
1138 


1148 
11568 
1148 
1178 
1188 
1198 
$288 
1216 


1228 


1238, 
1248 


1258 
1268 


1278 
{288 
1298 
1388 


1316. 
1328 
1338. 
1348 


1358 
4368. 


1378 
1388 
1399 
1408 
$416 
1426 
1438 
1448. 


BNE again 


CLC 
LDA baseZ 
\ Update for the next 
line 
ADC reallend 
STA based 
LDA based+} 
ADC #8 
STA baseA+] 
LOY #1 
LDA (based) ,¥ 
CMP #&FF 
\ Check for the end o 
# program marker 
BNE joop2 
\ If not found, repea 
t the loop 


skip 


done 
LDA #15 
\ Turn off page mode 
JSR oswrch 
LDA #225 
\ Reset the user-Keys 
back to default value 
LOX ai 
LOY #8 
JSR asbyte 
RTS 


\ Return to BASIC 
DX #8 


printout 


convert 
LDY #16 
\ PRINT the 2 byte 1i 
ne number 
LDA #6 
divide \Nasad 
ecimal number 
ASL lines 
ROL linedA+! 


INC lines 
less 
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1458 DEY 
1468 BNE divi® 
1478 cic 
1488 ADC #&38 
1498 PHA 
1508 INX 
1516 LDA lineZ 
1528 GRA lined+! 
1538 BNE convert 
1546 .printnum 
4558 PLA 
1568 JSR oswrch 
1576 DEX 
1388 BNE printnum 
15968 STX flag 
\ Set the line listed 
flag = FALSE 
1688 LDY #6 
1618 .loop4 
1628 LDA (starts) ,Y 
\ Get the ASCH] value 
of the first char in t 
he 
1638 JSR &BSBE 
\ line. Use the routi 
ne at &BSGE to PRINT it 
1648 INY 
1658 CPY linelen% 
\ Finished the line y 
et ? 
1648 BNE loop4 
1678 JSR osnew) 
\ PRINT a blank line 
1688 RTS 
1698 j 
1788 NEXT 
$716 NZ=O:FORKestart TO PY-1 sNYENZ+?K 


“NEXT 
$728 JFN/=4894) PRINT‘" CHECKSUM corre 
ct’ **SAVE FUAR "svstart® "3"PH : 
END 


1738 PRINT’CHRS7*ERROR"’*Check the lis 
ting” 

1748 END 

4758 

1768 DEFPROCtokens 

1778 FORAZ=128 TO 255 

1788 = IFAZ)}223 PRINTTAB( 65 ,AZ-224) 3 :C 
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HANDBOOK OF PROCEDURES 
AND FUNCTIONS for the BBC 
Micro 
~ 143 pages 


- Audrey and Owen Bishop ($27.95) 


The first thing you notice about this book is the lack of an 
index. In it’s place is a so-called "locator table" which 
purports to provide a cross-refernce of all the listed 
Procedures and functions against their applications; quite a 
good idea but I think I would have preferred a detail index as 
well. 


The book provides descriptions and listings of 74 procedures and 
functions, together with suggestions ior enhancements. The 
description of each includes the following: What it does, Formal 
parameters, Local variables (if any), parameters, listing, how 
it works and how the program invoking it should operate. 


Some of these procedures and functions are very useful and 
exhibit interesting and subtle programming techniques. 
Unfortunately some are obviously "fillers" and are of doubtful 
use. Examples of useful ones are: A routine to sort arrays 
iquicksort algorithm), A routines to display a character rotated 
9@ degrees, a routine to calculate a number to amy base, a 
routine to scroll the screen downwards or sideways. Examples of 
less useful routines are: A routine to print a polygon at a 
specified point, a routine to delete a word from a linked list. 


At nearly $30.00, this book is a bit pricey but on balance ! 
would recommend it to anyone from novice to intermediate level 
to use as a BBC Basic programming reference. 


HREKEREHKKKKHKERFRKHREHREHRKHHREEEE 


ALL&BSGE : PRINTTAB( 74 ,AZ~224) 54 AY~ 168); sCALLABSBE s PRINTTAB 38 

. ELSEIFAY191 ANDAY 4224 PRINTT AL-168) 5 Aas ELSEIFAZ(169 PRINTT 
Anca, A4-192) ; CALL&BSGE sPRINTT au Ad 128) CLASH :PRINTTA 
ABCS2, ‘Az-192) Ais BCD, Ay-128) ; 


1798 TFAV159 ANDAU<I92 PRINTTAB(22, 1888 NEXT: G=GET 
1818 ENDPROC 


TTTTTT TTT AT TTT TTT TTT TAT TTT ttt ttt ttttttttttttttitittitittt 
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MEMORY DUMP 
Steve C 


Another program created out of necessity. This one displays the 
contents of memery on screen, eight bytes per line. irstly it 
prints the current memory "pointer" value, then the contents of 
eight memory locations, the first of which is the contents of 
the location indicated by the pointer. On the same line, it 
then prints ASCII values of these values. If a value is equal 
to or greater than &7F, then an inverse “h" is printed, if a 
value is very low ( <&2@ ), it prints an inverse "I". 


The psychology behind writing this program is not so much the 
“mother of invention" theory, but a “crisis inducment". The 
“invention” of the program is not significant - variations have 
been around for years, but 1 never got around to writing one to 
do just what I want until I had to try and find a program which 
I had written. I just couldn’t remember where I had set PAGE! 
The program extended from there. 


Operation is, I hope, simple. The user enters a start address. 
tf a printout is required, s/he hits <RETURN: while holding down 
<COPY?, otherwise, s/he just hits return. If a printout is 
requested, the program prompts for a finish address. If this is 
entered, operation is automatic, outputting all memory location 
contents between the points entered. If 9 is entered, operation 
continues as normal, with a printout as well. 


Once the start address is entered, the four arrow Keys control 
operations. Up and down arrows move the display 8 bytes in 
either direction. The left and right arrows change the pointer 
value by one memory "page" (&186 bytes). When this is done, the 
new value is shown in inverse on-screen, otherwise the display 
is not affected. Page changes do not "auto-repeat” - I found it 
impossible to contro] ‘accurately if it did repeat. To enter a 
new start address, hit <SHIFT> or <ESCAPE>. This also turns off 
the print option. To exit, hald <CTRL> while hitting <SHIFT>. 


In order to allow this program to co-reside in memory with 
another, or with some data requiring checking, I have minimised 
the overhead memory space used. Around &&¢@ bytes of memory is 
required between TOP and HIMEN. While it is possible to shorten 
this program to take up less than &34@ bytes, inclulding this 
“punning” space, by taking cut REMs, spaces, and blank lines, as 
well as putting as many statements on one line as possible. 
However PLEASE type the whole thing in first. If you try to 
"save time” by shortening it as you go, I will get no credit for 


PAPA AIA AF 499999999 9499994949 9999499999999 994949499994499999949499 


So 
PEPE SEPT OS SPCC O PEEP O eee ee SEPP eee ee EE 


writing it, you will not be able to find typing errors, and will 
have no hope of understanding how the thing works. The BBC 
system is great for learning. If you don’t care about the 
points I have noted here, you have wasted your money buying a 
cheap computer, and should have bought a toy like an Atari or 
inclair! 


Variables 
W% - 2% - “double byte" values for VDU commands. (See your UG, 
(EUG piee)) 


0% - increment to memory pointer for each line of display 
$S% - string used for converting input inte HEX 

P% ~ ¢lag to indicate printing - @ = FALSE, 2 = TRUE 

F% ~ finish address - see above 

1% ~ memory pointer itself 

J% - counter 







xOa8 1 late, +4457 
ie 4, Pace Er Ving 
BOO Go ee 
AOE Pere HIBS Be ; 


cd Poe RIBERA: 
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18 REM Memory Dump Program 

26 REM By Steve Cosgrove 

38 REM 28 Sept, 1985 

46 

58 DIN $45 
art address 

68 ¥#fx4,2 

61 = 8: REM Number of locations 
printed across the screen 

62 FA = 8 + REN used to print a cont 
invous section of memory 

65 REM disable curser editing 

78 Uh = &BB1i : REM COLOUR 60 

88 X4 = &Bi1f : REM COLOUR &8) 

98 YA = &Biif : REM COLOUR @1 

186 24 = &8G11 + REM COLOUR &88 

118 ON ERROR IF CERR()17) AND CERR(>2 
8) THEN REPORT : PRINT * at line 
* s ERL : OSCLI "FX4,0" + VOUS : 

D : ELSE YDU 7? 
128 REPEAT 
$36 O58 


+ REM used to input st 


135 CLS 
{48 INPUT °Start address "$54 ; REM 
in HEY 
156 PY = -2% INKEY(-186) + REM PY = 
2 if printout required, @ othe 
raise 
155 REM PA is set if the COPY key i 
s held down while hitting RETUR 
N 


166 1% = EVALC*&"4$57) 

178 | $S¥="8" 

175 REM a a Finish address if Pe 
iS $e 

188 " Ph aa INPUT "Finish addres 


"$57, 

198 Fy = EVAL("&" +454) 

286 «VOU PY + REM enable printer 

21@ REPEAT 

228 TA = VAt0d + REM increment IY 
to desplay next line 

238 PRINT RIGHTS< "QO" +STRE“CIY A 

ND &FFFF),4);" ° 
235 REM print I, in HEX, with le 


236 


248 
258 


255 


268 
278 
298 
388 


248 
3H 
342 


313 


313 
326 
338 


344 


358 


366 


365 


Si 


ading zeros 
REM if 14 (8 or J4 > &FFFF, 
only output lower 4 places 
FOR WZ = 14 TO YAtus-1 
PRINT RIGHTS("O*#STR$~( 2X) 
ran af a4 
REM ‘print contents of memor 
y location J, with leading 
8 
NEXT 
YDU 32 
FOR 6 = 14 TO TX4L4-1 
TF (20/)=&28) AND (2KG127) 
THEN VOU 2U% ELSE IF 20= 
127 THEN VDU 1 ,&E8,3,Wsxe: 
ASCC*H") YAr243P4 ELSE YOU 
j REC, 3,0: or “ACCT! y,Y32 
AyPA 


REN IF M4 is printable, pr 
int it, 

REN ELSE IF its d= 127, p 

rint inverse "h" 

REM ELSE it must b 

e { 32, 50 print inverse "] 


REM &ES & REC print italic 
"h" and "1" on EPSON compat 
able printers 
NEXT 
REPEAT 
0 = INKEY(-58)#-LZ- INKEYé 
-§2)4-LA- INKEY(-26)#-4108+ 
INKEY(-322)4-8168 
IF ABS<ON) > LY THEN In =] 
AtQ4 + VDUSWAsxé: : PRINT 
RIGHTS<"000"+STRS~C IY. AND & 
FFFF) 4); : YOU 13,Y%3245P 
: REPEAT UNTIL NOT CINKEY( 
-246) OR INKEY<-122)) 
IF 04 = LY THEN VOU 1,18,3, 
11 ,P4:REM scroll screen up, 
printer down 
IF 0% = -L% THEN VDU 18 
: REM scroll] screen up, 
printer down 
IF (FA > TA) AND (FA) @) T 
HEN rf = Lf: VOU 16 ELSE F 
4s 
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378 VOU 13 408 DU 1,18,3 
388 UNTIL 4ABS(OZ) = LZ) OR INK == 418 UNTIL INKEY¢-2) 
EY(-1) 428 CLS 
398 = UNTIL INKEY(-1) 430 ¥4x4,8 
448 ¥4x15,1 


THE PERFECT PROGRAMMER 


“No program is that perfect." 
They said with a shrug. 

“The client is happy .. 
What's one little bug?" 


But he was determined. 
The others went home. 
He dug out the flow chart 
Deserted, alone. 


Night passed into morning. 
The room was cluttered 
With memory dumps, microfiche, 
"I'm close," he muttered. 


courtesy PANSOPHIC 


Chain smoking, cold coffee, 
Logic, deduction. 

"I've got it,” he cried. "Just 
change one instruction." 


Then change two, then three more 
As year followed year. 

And strangers would comment. 
"Is that guy stil] here?" 


From the Big Byte - 


He died at the console 
Of hunger and thirst. 
Next day he was buried ~ 
Face down, nine edge first. 


And his wife through her tears 
Accepted his fate. 

Said, "He's not really gone, 
He's just working late." 
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ENLARGED PRINTING 
BILL T. 


This program, BIGWORD, will display words and numbers on the 
printer in letters which are 7 lines high. Up to 10 characters 
can be displayed on each pass. The program runs on a Logitec 
dot-matrix FT-5000 printer, but should be adaptable for any 
printer capable of having user-defined characters. 


OBJECTIVE 


A need arose to have a program to run on an IBM PC which would 
print names from an existing file which would be of sufficient 
size to be used on mame cards on conference tables. The BBC was 
selected on which to develop the program, as it was more 
convenient to do the development at home. This meant that the 
program should be independent of features specific to the BBC, 
thus precluding the use of the OSWORD cali (A=&@A) which would 
have given an && matrix dot description rather than for each 
character having to be defined in DATA statements. 


This independence was not taken to extremes - where a BBC 
statement had a direct equivalent in IBM BASIC then the BBC 
statement was used e.g. VDU is used ta pass control codes to the 
printer, where the IBM eqivalent is LPRINT CHR$in). 


Ideally the program would have been printer independent, but the 
neccessity to download special characters prevented this, as the 
2 printers concerned required different download actions. The 
program is clearly marked where changes need to be made for 
different printers. 


PROGRAM FORMAT 


The supplied program will produce big letters for any valid 
groups of up to 1@ characters entered from the keyboard (only 
characters A-Z, @-9 and SPACE are allowed in the version given 
here). 


NULL input (just press RETURN) will terminate the program. This 
method should be used, rather than ESCAPE, in order to restore 
the printer & screen to initialised states. 

The code required to actually produce the big letters is 


FPIDIFF PIPPI F AFI I ITI I DIFF FFD FAI III FF FFF FFF IF 
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contained in procedures "biginit" and "bigprint". These 
procedures can be extracted and used in other programs, with 
“bigimit" being called once before making any calls to 
"bigprint". Then "bigprint" can be called repeatedly, with the 
characters to be printed being passed as a string parameter to 
the procedure, 


The program translates the string of input characters into a 
list of pointers which give the positions of each character in 
the array of character definitions. These pointers are used to 
obtain the portions of each character required to make up a line 
of print. 


DEFINING THE LARGE CHARACTERS 


DATA statements are used to define the format of the large 
characters. Each DATA statement consists of- 
(a) the character being defined, for documentation reasons 
only 
(b) ? S-digit strings to define the character as 7 rows of 5 
symbols. In each S-digit string a zero (@) represents a 
"orinted” space and one (1) represents an "inverse space" af 
a solid 7x5 block, 


The DATA items are read into a 2-dimensional array in the 
"biginit" procedure. Currently the rows in the array are defined 
as follows - 

- entry @ = SPACE 

-~entry 1-26 =A-1 

- entry 27-36 =@-9 


Additional characters can be added ta the end of the table, 
provided that the following lines are changed:- 


Line 120 - 
Amend N% to state the new table length 


Line 1820 - 
Amend the multiple nested IF statements to calculate table 
pointers from the ASCII codes of the added characters. 


VARIOUS NOTES 


*FX3,18 serves a dual purpose of directing PRINT output to the 
printer only and aiso turning the printer on (as with VDU2). 


FPPIPPPPPIIIVIF AIDA API I III III 999999 994999949494999999959 999949 
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*FX3,9 restores output to the screen. 


Beware of using #FX6,8 with this program (my printer is set to 
give automatic line-feed), because the zerces will be suppressed 
while #FX3,40 is operative and even VDU! cannot be used to force 
the zeroes through. 


Any characters in the input string which are not defined to the 
program will be printed as spaces (large size’). 


PROCEDURES 
PROCbiginit - 


fine $20 -declare table size 

line 13@ - adjust for using entry 8 

lines 150-200 - read data into table array 
line 240 - determine required printing density 
line 260 - direct output to the printer 


lines 240-310 - initialise the printer, set emphasised printing 
if requested, and set 1/&" vertical spacing 


lines 320-330 - download the print character defimitions (called 
font registration on the Logitec) to replace symbols for @ and 1 


line 350 - return to screen display mode 


PROCbigprint - 


line 978-980 - calculate the TAB size to centralise the words on 
the printer 


lines 990-1070 - translate each given character into a pointer 
into the print definition array and store the value of the 
pointer in a list of pointers for the current word 


lines 1090-1160 - use the pointers to extract the data for each 
character ona line by line basis, and print it 


PROCget - 


requests the next set of characters to be printed 


FPPPFFIFIFIPIFFIIPIFIVIFIPI FIFA IFA IIPI PI FAFA PIII IF III IF 
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PROCfinish - 


restores the printer to normal 


PROCtitle - 


Se ee ee Me me wee ewe mee we ee we ee we ew ee ww eee 


VARIABLES 
INTEGERS 


A% - the length of the current input (max 19) 

C% - the ASCII value of each character 

1% - general purpose loop variable in FOR loops 

J% - as for 1%, in nested loops 

N% - defines the size of the character definition array 

tab% - the size of TAB required to centralise the printed line 
ptr%0 - array of pointers to the table positions of the 
characters to be printed 


STRINGS 


A$ - any string input from the keyboard 

S$ - the string name used in PROCbigprint 

L%0 - the 2-dimensional array of character definitions as read 
from the DATA statements 


a ree ee et me nee eee re ae ee eee ee eee ee ee ee 
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18 REM #* T-BIGUORD + 
28 REN 


38 PROCti tle 

46 PROCbiginit 

36 PROCget 

68 IF A$<>"" REPEAT PROCbi gprint(As) 
iPROCge t UNTIL Ag="" 

78 PROCFinish 

§8 END 

98 

188 DEFPROCbiginit 

118 REM~------- 

126 NV=36:REM characs in table 

138 NZENZ-1 

148 REM define & load the table 

158 DIM L$(N¥,7) 

168 FOR I¥=@ TO NY 

178 = FOR Ué=8 10 ? 

168 READ L#¢14 JM) 

198 NEXT 

288 = NEXTIY 

216 DIM piriti6) 

228 


230 REM set up the printer 

248 PRINT"Single or double density (1 
fDY9 Us 

258 REPEAT :AS=GET$:UNTIL AS="1" OR AS 
="2" :PRINTAS 

268 ¥FX3,18 


288 REM Adjust here for different pri 
aters 

298 YDU27 ,64:REM INITIALISE 

3h IF AS="2" VDOUZ7,469:REM EMPHASISE 

318 VOU27 ,48:REM 1/8" SPACING 

328 VDU27 ,89 498 088 488 £08 ,e88 488, 
&06 466 £06 ,&60 

338 VOU27 89 431 ,&FF &FF AFP A&P LaF, 
&FF &FF AFF &FF 

348 REN------------------------------ 

358 #FX3,8 

368 

378 REN misc itens 

388 AS=STRINGS(18,"X") 

398 Ag="" 

488 VDU28 8,24 38,16 
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418 ENDPROC 
428 


438 REM Data to describe each charact 
er 

448 REM 

450 REM Space - also used for invalid 
characters 

460 DATA " * 08008 08080 80666 80088, 
60880 08868 80888 

78 REM 


486 REM Letters A - 2 

490 DATA A,O0188 ,A1018, 18801 10801 11 
iil, 1008, 18861 

508 DATA 8, 11116, 10001, 10881 11116 ,18 
eal, 1808, 11448 

518 DATA C,01118, 18801 18808, 10088, 12 
BOG, 1868! 81118 

520 DATA D, 1126, 18001, 18081 18801 16 
ORY 10084 11318 

538 DATA E,11111,10808,18088,11118,18 
OB8 18008, 14111 

548 DATA F,11111,18088,19000,11118,18 
868 , 1888 88,1 18860 

558 DATA &, ai18, 10081, 18800, 18086 ,16 
Ohl, 10081, Tee 

568 DATA H, 10881, 18804 18001 11511 ,38 
Bal, 16084, 19861 

578 MTA 18111888108 80168 ,@asag ,#a 
108 68188 81318 

588 DATA J, 80001 80081 80001 608: 88 
B81, 18081 81118 

598 DATA K, {880110010 , 16108, 11808 16 
188, 18818, 1888 7 

688 DATA L, 18008, 10008 , 18868 ,18808,18 
a8 18988, 11141 

618 DATA vi vé08 11014, 18301, 1888) 18 
08,168 18081 

628 DATA N, 18881, 18001 ,11801, 18181 ,18 
Bi, 1888!, 1806! 

638 DATA 0,01116, 10081, 10001, 10081 ,18 
BOL 38801 01158 

640 DATA P, $1118, 18081, 1/8001 11118 ,18 
B08 18808 , 10808 

658 DATA a, aiiie, 18601 , 10001 16081 18 
181,16 aie, 18 

$68 DATA R, 11118, $0801 10081 ,11118,18 
168, 1888, 18881 

678 DATA § 81118, 10001 18008, 01110 80 
O81 , 18881 81118 

688 DATA T,11111 80180 88168 68100 60 
10888188 86100 
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696 DATA U,18881 10801 , 10061 10081 18 
B81, 10661 81118 

708 DATA V, 8001 16081, 18881 81818 81 
G18 08106 66168 

718 DATA W 18081 , 10001 1806! 18101 18 
181, 16181 61018 

728 DATA X, 18801 18601 01810 ,80108 61 
018, 1668) 10681 

738 DATA Y, 10001 , 10081 01016 80108, 09 
100 66166 66166 

748 DATA 2, 51111 ,G0081 80018 8010001 
O06, 10886 44111 

756 REM 

766 REM Numbers 8 - 9 

778 DATA 8, G@B108 81618, 1608) 1066! ,18 
O81 , 1818 88168 

786 DATA 1, 88100, 81100 80109 80166 ,08 
168 8818861118 

798 DATA 2.01118, 18081 68001 86118 , 8! 
BBG , 19888, Tht 

868 DATA 3, Hitt, BOBO 08018 80116, 08 
Bi, 1088! , aitie 

818 DATA 4, vio, Aaa B1G1@ 16818, 11 
YW 00818808 

824 DATA 5, Hath, ieee, $1118, A806) 68 
861, 10081, atii8 

838 DATA 6, Bii8, O1068, 18008, 11118,18 
OB), 18081, Oy 

840 DATA 7, iit, BGG! 08018 , 80188 81 
888, 81888, @} 4a 

856 DATA 8, aitia 18801 1008) ,O1118,18 
661, 18081, alii 

868 DATA 9 O1118, 10081, 18081 81111, 80 
HOt, 8080, aie 

78 


888 DEFPROCget 

B98 REN------- 

908 INPUT “Enter up to 18 characters 
"AS 

918 IF LEN(AS)}18 AS=LEFTS(A$ 18) 

928 ENDPROC 


938 
948 DEFPROCbi gpr int(S$) 
958 REM----------- 

968 LOCAL A%,C%,1%,0% 
978 AZ=LEN(SS) 

988 tabZ=(10-AX)/2 46 +6 
998 FOR I¥=1 10 AY 


1888 © CéASC(MI0$(5$,17,1)) 

1018 REM Translate to table index 

1828 «IF (4364 AND C4491 CH=C4-64 ELS 
E IF C4347 AND C4458 C4=C4-21 E 
LSE IF C#=32 C4=8 ELSE CH=8 

1838 

1846 REM store each index 

1858 = ptrAt=ty 

1048 NEXTIY 

1678 

1888 REM Now print it 

1098 ¥FX3,18 

1108 FOR Fé=i TO 7 

1418 © PRINTTAB( tab); 

1128 FOR I¥=1 TO AY 

41138 PRINTLS(ptrvilid M3" 8: 

1148 NEXT IY 

1158 = PRINT 

1168 NEXT JY 

4178 PRINT 

1180 #FX3,8 

14198 ENDPROC 


1268 
$218 DEFPROCfinich 


1238 VDU2 

1248 YOU ,27,! 
1258 YDU3 
1268 VDU26 
1278 CLS 

1288 PRINT'BYE* 
1298 ENDPROC 

1308 DEFPROCti tle 


,O4:REM RESET PRINTER 


1328 CLS 

1336 PRINTTABC 18 8) ;CHRS(129) sCHRS(141 
);*BIGWORD" 

4346 ‘PRINTTAB( 8, 4); CHRS(129) sCHREC 141 
);"BI GORD" 

1358 "PRINTTAB(O,4); "Prints up to 18 ch 
aracters at a time’’"in enlarged 
letters" 

1368 PRINTTAB(O,7);"Allowable characte 
rs are:"TABC4 9) ;CHRS(198) ;"A-2, 
SPACE, @-9" 

1378 PRINTTAB(6 11);"(Invalid characte 
rs are" ‘TABC?) "printed as spaces 


ne 


1388 ENDPROC 


Se? 
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Space Guest 
JL 


This is a game in Mode 7. It was written originally to direct] 
access the screen with 7? and $ the indirection operators. 
since realised that this deprives a substantial portion of the 
membership of the chance to use it. It has been changed to use 
only approved methods such as vdu’s print tabs etc.. It relies 
on the fact that control codes for colours etc. are not visible 
and cannot be seen as different from spaces which are also the 
background colour black. Mode 7? graphics are limited but 
colourful. 


After a Title and Introduction the screen is filled with solid 
lines of colour which are then broken up by random control codes 
and spaces. A ‘ship’ is moved about the screen with the cursor 
keys ang the object landed on is determined by FNchr, (U.G.p.432 
and others) with the action taken determined by Procgo. Various 
messages are displayed from time to time depending on the 
current situation. Movement with the cursor Keys is only 
horizontal or vertical but landing on control codes causes 
mavement diagonally towards the centre of the screen. Any 
positions landed on are changed to empty space i.e. vdu 32. I 
hope that the variables and Procnames are self explanatory, 
changing them could lessen the typing. The program contains 
some anomalies; no prize for spotting them but instant fame for 
showing how to overcome them. Happy R.S.I.. 







@® 






TTTTTTTIPTTT TTT TTI TTT TT TTT TTT TT TT TTT ttt ttt ttt ttttttttttt 


60 


18 REM #% SPACE QUEST #% 

28 REN ## «JL BD ORE 

38 REM #* NODE 7 #* 

48 NODE 7 

38 ENVELOPE 1,1,0,8,8,8,8,0,126,- 
-1 715,126, ‘8 

68 BWELOPE 2, 1,8,6,6,0,8,8,58,8,8, 
~58,3 126 

78 aurlir 3,1,5,8,8,58 8,126,126, 

8,-18,126, 124 8 
a8 ENVELOPE 4, 1, 136, ,8,33,6,8,1,-1 
,6,8,124, 16 
98 ENJELOPE’ 354,17,8,8,98,0,8,1,-1, 


8,8,7,? 

108 ENVELOPE 4,1,55,8,8,14,8,0,14,8, 
8,8,38,8 

118 ENVELOPE 7,2,48,0,8,33,8,0,1,-1, 
8,8,124,8 


8 CLS 

138 VOU 2338202385638; 

148 PROCti tle 

156 PROCintro 

168 tough4=26 

178 

186 

198 REPEAT 

268 = CLS 

218 = middieage=39 

228 ful lMe20 

238) — cargov=25 

248 = be forev=49 

258 SOUND 3,7,9,168 

268 = PROCopening 

278 

286 

298 = - REPEAT 

308 SOUND 3,5,8,5 

318 PRINT TABLAS, 22)5PC(6) "DRIFT 
ING"SPC( 4) 

328 VOU 31,15,24,32,85,83,49 32, 
32,67 ,85,82,83,79 ,82,32,32,7 
5,49, 89 ,83,32,32,32,32 

338 PROCmove 

348 UNTIL middleage = 48 


358 UNTIL middieage = 41 
368 END 


378 

388 

398 DEF PROCRove 

408 #FX 21,8 

418 REPEAT 

428 FA-GET 

430 UNTIL FA38 

440 IF Fé=84 Fv=O:PROCtransmogrify:£ 
NDPROC 

458 VOU 31 ,sidez sup 432 

468 IF F/=136 AND sided1 sidev=side 
4-1 sPROCgo : ENDPROC 

478 IF FA=137 AND sidedi3? sidev=sid 
e%t) :PROCgo sENDPROC 

488 IF FA=138 AND upfdi? upteupieisP 
ROCgo :ENDPROC 

498 IF FY=139 AND up¥d) upy=upi-1:PR 
Ogos ENDPROC 

500 VOU 31 sides upz,35 

Si8 ENDPROE 

328 


338 

346 DEF PROCgo 

3a8 round4=FALSE 

5468 REPEAT 

578 VOU 31, sided ups 

588 0 what#=(FNchri&87,6,8) AND &FFG 
8) DIV &188 

598 IF what% 348 AND whaté (53 PRO 
Cgalaxy sround=TRUE 

684 IF whatd = 255 VOU 31 ,sidex ,up 
4,daicargov=cargovti :PROCbooty 
rful 4=ful td sPROCtue | sround/ 
=TRUE 

618 IF what! = 32 ful M=tul 14-1:PR 
OCfuel sround/=TRUE 

$626 IF what% 3144 AND whaté (id! V 
DU 31, side% ,upA,d2:PROCbI ackho 


le 
630 IF what = 129 PROCedge:rounds 
=TRUE 


$648 UNTIL roundZ=TRUE 
658 VOU 31 ,side4,up4 35 
648 ENDPROC 

678 


688 
690 DEF PNchrtAd X4,Y4) = USR&FFFA 
708 


718 
728 DEF PROCtue} 

736 IF fullZ<315 PROCdI saster sENDPROC 
740 IF €ul1%=39 ful 14=39 

750 PRINT TAB(15 ,28)SPC(25) 

768 FOR zip=15 TO fully 

778 YDU 31,zip,28,255 

788 NEXT 

796 ENDPROC 

990 


818 

828 DEF PROCbooty 

838 SOUND 1,-8,208,1 

848 IF cargoé (15 VDU 31,15,1,32:END 
PROC 

858 IF cargo4)=39 cargo/=39 

868 PRINT TABCIS, $)SPC(25) 

878 FOR zip=15 TO cargaé 

886 = YDU 31,z1p,1,255 

896 NEXT 

986 ENDPROC 

910 


928 
938 DEF PROCbIacKhole 

948 SOUND 1 ,3,5, 10 

958 SOUND 1,3,46,7 

968 PRINT TAB(15,22)SPC(5)"BLACK —H 


970 VDU 31,15,24,68,82,73,86, 69 ,32,3 
2,68,82,73,96,69,32,32 68,92, 73, 


86,69 
988 IF ups (18 UX = 1 ELSE Uf =~] 
998 IF side (28 SA = 1 ELSE S% =-1 
1880 upv=upitlt ssidev=sidertS4 
1018 ful l¥efully-i 
1828 IF ful }Z415 round/=TRUEsPROCdi sa 
ster :ENDPROC 
1838 PROCfuel 
1848 FOR taihoa=i TO 1608 
1658 NEXT 
1846 ENDPROC 
1878 
1688 
1098 DEF PROCedge 
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1168 IF upé(i® THEN upZ=upZt+] ELSE up 
A=upz-i 
1118 ENDPROC 


1148 DEF PROCgalaxy 

1158 whichZawhatd-48 

1168 IF before/-what/()8 PROCwrongord 
er :ENDPROC 

1178 TF whichZ=4 PROChome : ENDPROC 

4188 PRINT TAB(15,22)" GREAT GOING 


$198 VOU 31 ,15,24,32,32,32,82,69,45,4 
yeu ae Casas al ae 

$208 FOR times#=i TO which? 

1238 = PROCbells 

$228 NEXT 

1230 betore=befored+i 

1248 ful 1Z=39:PROCfuel 

1258 cargov=15+2#(cargo4-15) :PROCboot 


Y 
1268 FOR taihoa = 1 TO 1300%wshiché 
1278 NEXT 
1288 IF which4(3 THEN upé=upzt+ ELSE 


upv=upi-| 

1298 YoU Bt side ,upi.,35 
1368 ENDPROC 

1318 

4328 

1338 DEF PROCwrongorder 


1348 a TABCIS 22)" WRONG = ORDE 


1356 FOR taihoa =1 TO 2000 

1368 = NEXT 

1378 IF which4<3 THEN upé=upitd ELSE 
up/=upA-| 

1388 YOU 31 ,side# ,up4,35 

1398 ENDPROC 

1408 

1418 

1428 DEF PROChome 

1438 SOUND 3,0,8,8 

144@ PROCbel1s:PROCbel ls 

1458 value=1808#tough4#(cargoZ-15) 

1460 FOR zip=15 TO 38 

1478 VOU 31,zip,22,32 
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1488 | YDU 34,zip,24,32 
1498 = NEXT 
1566 fal JABC15,22)SPC(8)"QUR HER 


1518 wy Bat 26 24 ,32,32,87,69,76,67,7 
9,32,32,72,79,77,69 

1528 aa aa To 9 

1538 VOU 31,zip,8,32 

1548 VOU 31,zip,1,32 

1558 NEXT 

1568 YOU 31 ,0,8,129,141 

1578 VOU 31 ,0,1,129,141 

1588 PRINT TAB(3 ,8)"Your reward is $ 


jvalue 
1598 PRINT TAB(3,1)"Your reward is $ 
"syalue 
1686 FOR taihoa = 1 TQ 4808 
1618 NEXT 
$628 PRINT TAB(15,22)" MORE GALAXIES 
AUAIT® 


1638 VOU 34 ,34,24,78,65,83,84 49, 78,3 
2, 89,79 ,85,82,32 ,83 88 65,67 ,49, 
66,69, 76,84 

1448 FOR AZ = 139 TO 1 STEP -3 

1658 = SOUND 1,-12,A%,3 

1668 NEXT 

1478 FOR taihoa = $ TO 2588 

1486 = NEXT 

1698 middieage=48 

1788 tough¥=tough!+5 

1718 ENDPROC 

1728 

1738 

1748 DEF PROCtransmogr i fy 

1758 PRINT TAB(15,22)9PC(25) 

1768 a TABUIS, 22)" T TO TRANSFE 


1778 im 31, 15,24 32,83, 86 ,65,67,49,3 
2,32, 44, 85, 82, 32, 32, 839, 78, 48, 83, 
3 


j 

4788 REPEAT 

1798 SOUND 3,6,0,18 

{886 key = GET 

1818 IF key = 84 AND full4(39 PROC 
hange 

1828 = *FX15,8 

1838 UNTIL key = 32 


1848 ENDPROC 
1856 


$868 

1878 DEF PROCchange 

1880 IF cargo4<i5 ENDPROC 

1898 FOR Av=1 TO 188 STEP 4 

1988 «SOUND 1,-12,A%,1 

1918 = NEXT 

1928 IF ful1#)=39 ENDPROC 

1938 cargov=cargot-t:ful etul Att 
1948 PROCbooty :PROCfuel 

1958 ENDPROC 

1948 

1978 

1986 DEF PROCdisaster 

1998 SOUND 3,0,8,8 

2868 ee TABLAS, 26)" DRIFTING HELPL 


2618 PRINT TABS 15,22)" ANOTHER TRY 


2028 a 31 15,24,32,32,32,80 82,49 8 
3, 83 32 432 89 932 32 432.32, 3, 
3 


2830 YOU 31,15,28 22 

2848 FOR A‘ = $39 TO 1 STEP -3 

2858 = SOUND 1,-12,Au,3 

2868 NEXT 

2878 REPEAT 

2086 = key=GET 

2898 UNTIL key = 89 OR key =121 

2168 middleage=48 

2118 tough#=tough-5 

2428 ENDPROC 

2138 

2148 

2158 DEF PROCbells 

2166 SQUND §,1,131,18 

2178 SOUND 2, 2, 131, 428 

2188 SOUND 1, ‘t 131, 10 

2198 ENDPROC’ 

2288 

2218 

2226 DEF PROCopenin 

2238 PRINT TABLE, 28 oo U 
SE CURSOR KEYS T 

2248 PRINT TAB 22)CHRB(134) SPC(9)"Y 
ATCH THE SCREEN" 


2258 FOR row = 3 TO 18 

2268 «= 2 ip=i44+RND( 6) 

2270 «=VDU 31,8,row,zip 

2286 ~=NEXT 

2298 FOR coluan = 1 TO 39 

2308 =FOR row = 3 10 18 

2318 zip = 255 

2328 VOU 31,column ,row,zip 

2338 NEXT row:NEXT column 

2348 PRINT TAB(S,28)"SUCCESS GIVES A 
HARDER MISSION" 

2358 PRINT TAB(4,22)"FAILURE GIVES AN 

SIER TASK" 


2368 FOR row = 3 TO 18 

2378 ~=FOR hard= 1 TO tough? 

2388 column = RND(39):zip = 144k 

ND‘ 6) 

2398 JF column = @ column = | 

2480 VOU 31,column ,row,zip 

2418 NEXT hard:NEXT row 

2428 FOR ros = 3 TO 18 

2438 =FOR column = 1 70 39 

2448 space = RND(3) 

2458 IF space = 2 VOU 31,column,r 

ow, 32 

2468 NEXT column:NEXT row 

2478 FOR zip = 1 TO 39 

2488 = VDU 34,zip,2,129 

2498 §=YDU 31 ua 129 

2588 NEXT 2 

2518 VOU 31, a, b 136,9,49,31 ,38,2,58 

2528 YDU 31, "8, 19 5136,9,51, 31, 38, 19, 52 

2538 VOU 31, ‘8, 128, 129,157, 132, 32, 78, 85 
69,76, '32 3 32, 156, 137, 148 145 

2548 YU 31,8 ,22,138,157,132,83,04, 65 
84,85, 83 32, 32,156, 137, 148, 138 

2598 vou i, ‘8, ba] i, i157, 132, 65, 87, 84 
573,79, 78, 32, 32, 156, 1137, "148, 131 

2568 vou i, ‘8, 1, 133, 157, 132, 87, $5, 82, 
74,279 32, 32, 156 137, 148, 154, 149 

2578 REN all p prints to start at M5,y 


) 
2588 side/=28 :up4=18 
2598 VOU 31 ,side% ups 35 
2688 *FX 4,1 
2618 PROCfuel 
2628 PROCbooty 


$3 


2638 ENDPROC 


2668 DEF PROCti tle 

2678 PRINT TABC10, 18) CHRE(129CHRS(14 
1)"SPACE QUEST" 

2688 PRINT TABCI@, 11) CHRS(129)CHRS( 14 
1)*SPACE QUEST" 

2698 FOR times = 1 T0 2 

2788 = PROChel 1s 

2718 = NEXT 

2728 FOR taihoa = 1 TQ 4888:NEXT 

2738 CLS 

2748 ENDPROC 

2738 


2768 
2778 DEF Saha 

2788 SOUND 3 

2790 PRINT ‘dts se YOU have 


CHOSEN ¢ 
2868 BRENT” CHRE C131 9SPC(4) *COAHAND § 
TARSHIP HASHNAK"™ 
2816 PRINT’ CHR$(131)SPC(2)"on its voy 
age around the universe" 
2828 : INT CHRS(131)"to restore the ¢ 
rtunes of your world’ 
2838 PRINT’ CHR$(129)SPC(2)"On your tr 
avels landing on coloured” 
2848 PRINT CHR$(1 9)SPCC2) "planets in 
creases your possessions” 
2858 bh eotaies epee ati spac 


e@ may carry no penalty but" 
2868 pee fea Ser PC45) "BLACKHOLES 


2878 PRINT "BHRS( 31 )$PCC4) ‘and ruin y 
our navigation." 
2888 ae 4129)SPC(2) "Visit each 
umbered galaxy in turn" 
2898 PRINTCHRS(129) SPC(3)" topp ing up 
your fuel tank and" 
2908 be CHR$(129)" doub] ing your ¢ 
As although both may" 
2918 reli CHR$(129)SPC(9) "never exce 
full," 
2928 PRINT. CRS (131) "To convert cargo 


to fuel Press... T’ 
2938 PRINT CHR$(131)SPC(4)"Use the cu 
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rsor Keys to move" SCREEN" 
2948 PRINT CHR$(129)SPC(3)"Press the 2948 REPEAT 
space bar to begin" 2978 = Key=GET 


2958 PRINT’ CHRS(131)5PC(9) "WATCH THE 2788 UNTIL Key = 32 
2998 ENDPROC 


RITTY 
Ted M ZLIBOY Arapuni 
Including a review of G3WHO’s RTTY program. 


Perhaps before starting a review, some explanation of what RTTY 
is all about is in order. RTTY stands for Radio TeleTYpe, and 
such is the trademark of the Teletype Corp of the USA. A better 
mame for it is Radio Tele-printing. The code used for this 
method of communication is Known as the BAUDOT code, or as the 
Murray Multiplex code, and is vaguely similar to the more 
familiar ASCII] code. However the major difference is in its 
format: ASCII uses & bits to describe each letter, whereas 
Baudot has only 5 bits. It will be noted that there are only 32 
possible combinations of 5 bits, and in fact only 31 are used. 
As there are 26 letters im the alphabet, there are insufficient 
combinations, so the solution is to use the code twice, placing 
the alphabet and machine functions on it the first time round, 
sending a special code to tell the machine to “change state” and 
then sending the code all over again with numbers and 
punctuation in it. All sounds very complicated, but the system 
works, and has done sco for a very long time - in fact it was 
dreamed up in 1874' The cade is sent in serial form, with the 
addition of 1 start bit and 1 1/2 stop bits, giving 7 !/2¢ bits 
per ‘byte’. 


This system has been used for years by the Post Office and like 
organisations around the world for telegraph traffic and is well 
Known in this country as the TELEX. It is also used extensively 
on the shortwave radio bands by all sorts of organisations for 
news bulletins, weather broadcasts, international telex, 
military information to name a few. It is also used by some 
radio amateurs (myself included) as a means of communication, 
instead of phone or cw (morse), Its chief drawback is that it 
is fairly slow - usually 5@! or 75! bauds, amateur standard 
being 45.45('!) bauds, just to be different. 


Up until the advent of computers, anyone who wanted to ‘print’ 
RTTY had to acquire a teleprinter such as the Creed 7B, 54, or 
75, and these were not easy to get until recent times. They are 


FAFA IFIFFIF FFI II FIFA DIFF FIFI 9499999 9994499949999 999 94449999 
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also noisy, messy things that don’t endear themselves to the 
rest of the household! The micro changed all that and made 
possible a very sophisticated rtty setup. I have been dabbling 
with the mode for the past 19 years, with mechanical printers, - 
and the acquiring of a Beeb with printer made me want to find 
suitable rtty software. I found what I wanted in an English 
radio magazine, and I sent away to Peter for more info. It 
appeared this software was available on cassette for &7.30 or 
disc &9.50 or ROM &2@ The ROM appealed to me so off went the 
money and back came the ROM 3 weeks later without any Customs 
problems. 


I should make it clear at this stage, anyone who wishes te use 
this mode of communication will require as well as the Beeb, a 
good shortwave receiver and a modem to convert the audio tones 
from the receiver into TTL-compatible dc pulses, much the same 
as a telephone modem. Suitable receiving converters are 
published in the amateur radio press from time to time, and I 
would be happy to help anyone out with suitable circuitry. If 
you wish to transmit teletype you will require an amateur’s 
transmitting licence as it is against the law to transmit on 
amateur frequencies without one. 


Anyway, having installed the ROM it was powered up and set 
going. Presto! Up came the command to insert my callsign, then 
set the internal 24-hour clock. The program is menu driven so 
there are a range of special functions to access, such as 
setting different speeds, programming one of the 6 255 character 
transmit memories, the contents of which can be saved to tape or 
disc to save reprogramming them each time they are used. 


When either of the two operating modes are selected (5@ & 45.45 
baud), the computer then displays in split screen mode. This 
means that received text is displayed in the top half of the 
screen, and text prepared for transmission is displayed on the 
bottam half. The program uses Mcde 3, so &@ characters per line 
are displayed. Along the top of the display is a line 
containing: the status of the program ie receive or transmit, 
USOS enabled, printer on or off, and the contact number. USOS 
is a handy feature for rtty as, due to atmospheric conditions, 
the command to the recieving printer to return to “letters” 
shift after printing figures is sometimes mutilated and the 
printer stays locked in "figures" shift. USOS (UnShift On 
Space) means that the computer goes back to letters shift on 
receipt of a valid ‘space’ character. There is also a useful 
callsign search facility that searches received text for a 
callsign and puts into memory, so when transmit is selected, 
your call and the call of the station you are working is sent at 


FIIIF IF IIFI 9999994999999 49 9999949499999 9494949 4999449999 449999004 
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the beginning of the transmission. The text for transmission is 
written in the lower half of the screen and text may be prepared 
while the unit is also receiving text in the upper half. 
Another advantage is that all memory contents that are 
tfansmitted are also displayed on the screen so you can see 
exactly what is going on. The transmit screen has two cursors, 
one controlled from the keyboard, and one that displays the 
character that is being transmitted, allowing you to type ahead 
of the transmit cursor. 


As well as all this, the receive and transmit speeds may be 
altered from the Keyboard in 5 baud steps between 1@ and 100 
baud; to allow the reception of non-standard speeds. These are 
quite common on shortwave bands. There is also a real time 
clock that can be inserted into transmitted text which adds a 
professional tauch. The ROM version has the facility to allow 
the Beeb to be used to generate morse code for transmission. 
This is a nice touch, and is far better to use than the old 
morse Key! Any printer that is normally used with the Beeb may 
be used with the program; when the printer is enabled, each line 
is printed out from both received and transmitted text at the 
end of each line of the display. 


What do 1 think of it? Magic!' Over the years I have seen a 
lot of RTTY software for various computers; I have owned both an 
Ohie Superboard 2 and a idk 2X84 and had rtty for both of them; 
I have seen other computers with rtty fitted; none have compared 
with this one. I make no apology about my love affair with the 
Beeb - my wife doesn’t see it that way I’m sure ~- and this piece 
of firmware does everything that an avid RTTY’er could want. 
Having said that, it would be mice to see ASCII included with 
the package, but there isn’t much of it about on the airwaves 
yet, and, in my opirion, it is not a code that lends itself very 
well to radio propagation, for a number of reasons I won’t go 
into here. I consider that this soft/firmware is well worth the 
money. 





Where do you get it? 

Mr P.J. Harris G3WHO, 1 Appleby Close, Great Aline, Alcester, 
Warwickshire B49 6HJ UK 

Peter also has other software he has wriiten for sale, including 
AMTOR which is a funny sort of teletype that is becoming popular 
with the amateur fraternity. 
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AMATEUR RADIO SOFTWARE 





Reviewer: Brian C ZL2BFC Wgtn 


4. Slow scan television (G&UEE / G3LIV) 
» CW QSO (Scarab) 

3. Morse Tutor (Scarab) 

. RTTY (G3WHO) 

» RTTY (Scarab) 


i SLOW SCAN 

This software is designed to turn your BBC computer into a 
monitor for SSTV. The package consists of a cassette with 
software on one side and some test pictures om the other. My 
copy was well recorded and loads reliably each time. There is 
also a PCB and instructions for the hardware decoder required. 
The PCB is of good quality, and predrilled. Construction is 
straightforward (Knowledge of electronics required), You will 
need ta buy the components to fit on it. Alignment can be done 
with a multimeter using the test patterns on the cassette. 


On & Wh 


To use the package, audio from the receiver is fed ta the 
decoder and a ribbon cable connects to the Beeb, but in my case 
a separate power supply is used. 


Upon loading the program and connecting a suitable source of 
audio to the input, the screen will come alive with the incoming 
picture. Various options allow variable width, positive or 
negative imaging, frame retrigger (clears screen also), and 
choice of 7, 16, 32 second formats. It will handle American 4? 
Hertz video as well. 


As for criticism - I have none. It is an excellent unit and is 
fun to use. 


Source: S.P. Electronics 48 Linby Rd, Hucknall, Notts 
NGi5 7TS, Great Britain. 
Cost: about $45. 


2_ CW Q@50 

A full featured Basic program with machine code that will enable 
2-Way communication on Morse code using the computer to decode 
and display in English the received signal. It sends Morse 
after it has been typed in English to the keyboard too. The 
package has a cassette and a manual fully describing the 
operation of the program and the interconnection details etc. 
By the way, I should make it clear that an external 
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encoder/decoder unit is needed for each mode. The slow scan 
does not need an encoder however as it does not transmit. 


Upon running the program a message appears asking for speed. If 
the figure shown is ok, hit return else enter your own figure. 
This will set the transmit speed and tell the receiver about 
what speed to expect to decode. The receive speed automatically 
adjusts to the incoming signal but leaves the transmit side 
alone. From then an any signals once tuned in will print 
straight onta the screen until the transmit mode is entered. 
Any words then typed in will then be sent out as Morse. A 
sidetone tells you what is being sent. The red Keys can be 
programmed for short messages and a printer can be used for hard 


copy. 


My only criticism of this extremely versatile program is that 
although it has a Keyboard buffer allowing you to type ahead, 
the text in that buffer is hidden from view - too bad if you 
make a mistake in your typing. Apart from that one criticism, 
again full marks. 


Source: Scarab Systems, 39 Stafford St, Gillingham, Kent 
ME7 SEN UK. 
Cost: round $25. 


3 MORSE TUTOR 

Tt wish I had had this program when I was learning my morse. It 
is excellent in all respects as a tutor. Package is cassette 
and instructions. It is a very long program and will not fit 
neatly in memory with discs. 


Upon running it, the morse alphabet is displayed on screen to 
save you trouble looking up the codes. A whole series of 
questions follows with default values asking about speed, 
weightings, text etc. A loud burst of tone out of the 
loudspeaker and a suitable message on screen tell you to get 
ready. All very dramatic. The morse then comes from the 
loudspeaker and at the end a prompt asks for the next step. The 
program is user-friendly. One of the nice features is the 
lookup table containing 75@ plain English words to read from. 
The chances of guessing the word are fairly remote. 


Another surprising element of this program is that it will test 
your sending as well. By hooking up a Key to one of the inputs 
on the User port it will decode your morse and tell you what 
speed it was sent at. Any errors will undoubtedly be your own 
doing. Alternately,.a decader hooked up will enable off-air 
Signals to be decoded as well as indicating the speed. This 


FIPPADIFIIFIDIV IFAD FFI IAFF IFAD FFI PRIA FFF FIFI 


69 
EPPS S ESS ESE SSE OO ESOS OEE SSeS Soe e eee eee re 


speed indicator is not present in the 2-way program above. 


All in all a thoroughly useful program. 
Source: Scarab 
Cost: about $15. 


4 RITY (G3WHO) 

A 2-way teletype program using suitable interfaces. This is my 
favourite mode and the program makes it worth while. There are 
so many features available that I prefer it to the one detailed 
below. The first thing that impressed me was the split screen 
arrangement enabling received signals to appear in the top half 
of the screen, and your reply to be entered in the lower part. 
You can type in while the other station is sending to you. 
There 1¢ an auto callsign search which will look for the other 
stations callsign and poke it into a memory for you to recall at 
pleasure. The red Keys can be programmed with messages of your 
own creation and saved as part of the program proper. Other 
features include morse code id (if desired), real time id, 
adjustable speed, printer hookup etc. 


The manual is again up to standard and is comprehensive. The 
program is also available on Eprom, but from what I have heard 
the cassette version is better. 


Source: S.P, Electronics. 
Cast: about $25 


> RITY (Scarab) 

A 2-way program also but it differs in that a conventional 
screen arrangement is used, thus it is mot possible to type 
ahead while in Receive mode. It also has the curious habit of 
sending the morse id via the Beeb’s loudspeaker and not to the 
transmitter if a separate encoder is used. Also when you run 
the program, GMT and day etc are asked for, but whereas the time 
is updated automatically, the date isn’t. Should you go past 
midnight GMT (noon toa us Kiwis) the date will need tc be 
manually incremented. 


For all that though, it does have one trick up its sleeve, in 
that you can have 4@ or &@ character widths with corresponding 
definition and print size. The 4@-character size is good it 
your monitor is not up to scratch. The manual is as good as the 
others. 


Source: Scarab 
Cost: about $39 
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INTERFACING 

It is a credit to all programmers (except the SSTV which has 
different requirements) that all the pin connections to the Beeb 
are done the same way for each program. eg PB2 is the pit line 
and PB@ is the the receive input. Even the TTL pulses are the 
same way up. Interfacing is a breeze because of that. 


In my experience it is vital to have good decoders on the 
receive side, whereas the encoders are not s0 critical. 
Included with the CW @QSO program is a circuit for a simple 
decoder using a single NE567 IC. Building that decoder is a 
waste of time because the waveform coming out of it is not clean 
enough for the Beeb to handle. Only garbage will appear on 
screen, Instead I would suggest building the circuits out of 
‘EleKtor’ in the series published during 1983 on amateur radio. 
For encoding I] have a simple design for morse and also for RTTY 
that 1 am prepared to pass on (see below). 


CONCLUSION 

I have outlined 5 of the software packages available to the 
amateur as I have experienced them. There are others available, 
but I have mo information om them. Scarab seem to be the 
leaders in this field and they have a large range af software 
for most of the computers around. 


All the programs were supplied on cassette with no protection 
and thus are easy to transfer to disc. This was done 
deliberately by the programmers to enable you to put im messages 
etc and make backup copies. The ability to pirate 15 a risk 
they took and the manuals make it clear how they feel on that 
subject. 


If anyone would like copies of circuits (but NOT the software 
itself), drop me a line and $5 for photocopying etc: 

Brian Cattermole, 34 Routley Cres, Upper Hutt. I can be found 
monitoring 38&3 Khz most evenings at 210 hours. 
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A PRINTER? 
Anne F, 


So you’re tossing up about whether you need a printer or not. 
There are some obvious uses: 

{. Print out listings when your programs are too big to fit on 
the screen all at once. 

2. Do all your correspondence. 

3. (if it’s an old printer or teletype machine) put it out in 
the orchard as a bird scarer. 


But there is more to it than this. 

How about buying a drawing package 4s well, or Pate Bill T’s 
recent one, and making your own pictures. These could provide 
you with a lifetime supply of unique and personalised Christmas 
cards, Birthday cards, Wedding invites! 


Daisy (nee 32-@-16) and BoB Camp 
are proud to announce 
a mew peripheral to their family... 


and sc on. Your printer can take coloured paper, light card for 
this, 


Pictures may be put in a scrap book or travelling book - a 
stylised geyser for the Kics to spot as you drive through Te 
Aroha or Rotorua, or a trig station (who sees the most)... and 
the Kids will have had some anticipatory days of fun designing 
their computer pics to put in the book while you get under the 
car, pack suitcases etc. 


If you have a penchant for adventure games, do a CTRL-B when you 
start, and you will get a printout of the game and your 
responses for future reference. This chews through the paper 
though. 


You may Know someone with poor eyesight, who still likes to 
receive letters. Offered here is a Basic program which will 
take a letter written in Wordwise, space it over how many 
screens are needed, and then dump the text. The screen dump 
routine here for a C.Itoh produces a A4-wide page of text. This 
results in much larger, darker text for reading. It doesn’t 
matter that a screen has up to 25 lines, and your letter is 5 
Pages long! The program prompts for how many lines you want on 
each screenfull (22 lines looks good). It then gets the first 
{eg 22) lines of text from the Wordwise file, spaces them evenly 
down the screen, then calls the screen dump routine. When the 
dump is finished, it clears the screen, gets the next 22 
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lines... and so on until the end of your letter is reached. 


Preparing the text file: 
Within Wordwise, write your letter. 


Set LL40 
Save using option 8 from the menu. 
Back in ta Basic 


466 
416 


REM TEX DMP 
REM Ta read a spooled WORDWISE text, 
REM space it evenly on the screen 
REM then to a double-sized screendump 
REM for each screen. 
REM by Gavin F 3/3/85 
REPEAT 
INPUT "Spacled text file to print is ? "f_text? 


UNTIL LEN(f_text#) > @ 

citext% = OPENIN‘< f_text$) 

PRINT’? 

REPEAT 
INPUT “Number of lines per screen [8...25] 7 "My 
UNTIL M¥>? AND M426 

MODE4 

Lt 

yinc=1424/My% 

MOQVE@ , 1823 

VDUS 

REPEAT 
x4 = BGETHc_text™ 
IF X¥=&8D THEN MQVEG@ ,1623-(LMey_incd :Le=L%+ I 
IF M4>&1F AND X44&?7F THEN VDUKM 
IF L¥OM% THEN PROC_screen_dump:CLS;:L¥=1 
UNTIL EOFH#c_text™ 

CLOSEHc_text 

IF LA>1 THEN PROC_screen_dump 

VDU4 

END 

DEF PROC_screen_dump 


LOCAL A%,BY%,C% ,D% ,E%, FY, G4, 1%, 2% 
AY=1023:BY¥=15:0%=-16 
DM=0 :E¥=1279 :Fv=4 
BY=8 
MOVE 1279 ,1823 
DRAW1279 1022 
UDU2,1,24,1,27,1,84,1,49,1,54,1,2,1,27,1,62 
FOR Y“%=A% TO By STEP by 

VDUS ,27,1,83,1,48,1,54,1,52,1,48 

FOR X¥=DY% TOE STEP FY 
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4260 2%=0 

430 IF POINT(X%,Y%-12)¢>G% THEN Z2%=&C® 

440s IF POINT(X%,Y%-8)<>G% THEN 2%=2% OR &36 
450 IF POINT(X%,Y%-4)<>G% THEN 2%=2% OR &0C 
460 IF POINT(X%,Y%)<>G% THEN 2%=2% OR &63 
470 VDU1,2% 152% 


480 NEXT 
49@ VDUI,13 
500 NEXT 


3410 VDU3 144275456944 527 541654152751 60,3 
528 ENDPROC 


IS IT EXPENSIVE? 

Like everything, that depends... 

i. Printer ribbon - carbon once-only is expensive, nylon 
ribbons go round and round gradually fading. 

Some may be satisfactorily re-inked, and a ribbon cartridge is 
easily opened up for this - just do it carefully so metres of 
bunched-up ribbon doesn’t fall out. What ink is important. 
Tony W has been researching this, along with ribbon replacements 
for Logitecs, and finds there is a special dot-matrix ink, which 
is reduced in pigment that should be used. With other inks 
there is no quarantee that the pigment won’t make the pins on 
the printer head stick or jam or wear down quicker. 

The life of a ribbon depends in part on its length, and in part, 
on what you do to it. Lots of screen dumps wear ribbons out 
pretty fast. If it is practical for you, have two ribbons - one 
newer one for text, an older one for graphics. 


2. Paper - from $@ to $lots, it’s your choice. 

$@ even though you probably have an A4-width printer, the wide 
commercial printout paper can be sliced to an appropriate width, 
then used on friction feed - don’t try to use the sprocket holes 
on one side. 

$@ some word-processing paper sheets are backed on to 
sprocketted fanfold paper. This backing paper is lovely 
Quality, the only disadvantage for some being that what 1 have 
seenis perforated every half page. 

$5+ packets (reams) of typing paper, from Whitcoulls sale gives 
you 5@@ sheets which have to be fed individually in to the 
printer. 

$lots boxes (2000 pages) of fanfold, sprocketted, with 
horizontal and vertical perforations. That is; you can split at 
each page easily, and also tear off the sprocket hole margins to 
end up with a neat-edged page. {Last box from Wickliffe was 
$60). 


3. Printer Head. This is where the wires come out, hit the 
ribbon to leave a dot each to form the letters of your words. 
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Gradually these wires wear down from all that hitting. Signs 
of this may be that the top dot on capital letters is darker 
than other dots, or the underline may also be darker - these 2 
pins get less use perhaps, so are hitting harder than the other 
wires. Cure? When it becomes unbearable, buy a new printer 
head' The cost will vary among printers. The $140@ C.Itoh 
bought 3 years ago has had extremely heavy use (as much as the 
POIS aone'), and is shawing signs of wear. A new head was $400 
for that machine. Most domestic printer-users would take twice 
as long at least to get to that stage of wear, and price will 
depend on brand of machine. 


WHICH PRINTER? 

To a large extent printers are much of a muchness these days. 
Most of them use the same codes as Epson printers, which means 
that Graphics ROMs etc which include dumps for these machines 
will work on other printers too. 


Hae User Group coffers a choice of 3: the Solar £20, 18@ and 
1800. 


The 120 is your basic printer, with the more economic way of 
feeding paper through. It prints at a nominal rate of 120 
characters per second. This was fast 3 years ago. It takes up 
to A4-width paper. 


The 19@ has extra features: 

a) a 3K RAM buffer, which means that the computer will have 
shoved out all the text and be ready to do something long before 
the printer has finished. Good. 

b) facility to define your own characters - just like the BBC. 
These definitions take up some of the 3K RAM available. 

c) it goes faster - nominally 18@ cps 


The 1960 is like the 18@ except that it has a wide carriage to 
take the 13"(?7) wide paper so beloved of computer 
establishments. It isn’t fussy about the pees’ on the paper 
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RANDOM NUMBERS 
The Centaur. 


Me again. This time with a Machine Code program to generate 
Random Numbers. Having said that I know I will receive a lot of 
flak because everyone Knows there is mo such thing as a true 
Random Number generator. However this R.N.G has a sufficiently 
long cycle (about {6 million numbers long) to be usable for all 
applications. The Generator can be started anywhere in the 
cycle depending on the initial values in locations Seed (&&@) to 
Seedt3 (&&3). The first three bytes of Seed act as a 24 bit 
number from which Seed+3 is extracted. This number is then 
juggled a bit and the result is a Pseudo-random number. The 
number is in the Accumulator and the X and Y registers are 
untouched, so if the routine is being called from M/C, Line 276 
is unneccessary. Obviously this means that only numbers in the 
range of @ to 255 will be produced so if bigger numbers are 
required, the routine may have to be called more than once. 


18 Seed =&86 

26 DIM EX 56 

36 FOR T=8 TO 2 STEP2 
48 PMSEY 

58 «CT OPT T 

66 CRnd 

ve CLE 

86 LDA Seed 

96 «ADC HADI 


188 STA Seed 
1$@ LDA Seedti 
128» =6ADC 478 
138 = STA Seedti 
146 =LDA Seed#2 
156 ADC #186 
168 STA Seed#2 
178 LDA Seed+3 


188 ROL A 

198 EDR Seed#! 

288 «= ROL A 

218 EOR Seedt2 

228 «ADC 48 

238 «= STA Seed+3 

248 = LDA Seed 

256 «= ROL A 

268 EOR Seedt3 

276 = STA Seed+4: \ This line is only neccessary if 
being 
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286 = RTS : \ called from Basic 
298) 

386 = NEXT 

318 REPEAT 

328 = CALL Rnd 

338 PRINT?(Seedt4) 

346 UNTIL FALSE 


Why use this routine when BBC Basic has its’ own excellent 
R.N.G.? Well, two main reasons are: 

i. The BBC R.N.G. cannot be called from M/C, 

2. This routine is Much faster even from Basic. 

The distribution of this R.N.G. is very even over large samples, 
and produces the correct averages etc. so even statistics 
students will find it useful. Well, thats it from me for another 
month, 
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PROGRAM RECOV AND TOKEN 
N T 


Steve C 


When stored in memory, most interpreted computer languages use 
tokens to take the place of Keywords. A token is a single byte 
{greater than or equal to &&@ (128) in the BBC system) which 
represents the string of characters in a Keyword. (Those who 
don’t Know what a Keyword is will do after typing in, and 
RUNning, this program.) 


This has a number of advantages, mainly less memory needed to 
store the program, as only one byte is needed for each keyword. 
It also makes program interpretation faster, as the interpreter 
only has to read one byte, rather than a whole word, of up to & 
bytes (ie RENUMBER), 


Originally this program was developed to retrieve a program 
which had corrupted itself. From there I decided that it had 
another use, after it had locked up all the BASIC tokens, of 
printing out a list of what these are. Such a list is in the 
BBC UG, but not in the EUG. Beeblet Vol 3, Num 7, had a program 
with a similar aim, which re-arranged any remnants of a program 
that it could find. My program however, does not actually 
change memory, just reads it, and prints out any program lines 
it can find, Line numbers are not included, as I consider them 
superfluous to programming. The option is provided to SPOOL 
output into a file, which can be accessed with #EXEC <filename> 
to create a new version of the program. Such a method creates a 
"clean" copy of the program, as my experience with messing 
around in memory is that it often currupts more than it 
recovers. (That was why I needed this program in the first 
place!) Experimentation with this program, without a filename, 
will allow the user to find out where most of the program is, 
before SPOOLing it. 


Having typed it in, test this program on itself! 
>PRINT ~PAGE : REM find the start of the program in HEX 
page 
>RUN 
start address ?<page> 
stop address ?<page + &7686) {or so) 
filename 74> 


This should produce a listing of the program on screen, with no 
page numbers. 
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BASIC lines are made up as follows:- 
N4 N2 LL (TO (DD DD)) &0D 


Ni N2 = line Number (whats that for?) ) ignored by this 

LL = Length of Line ) program 

TO = token ) these can be repeated for as many statements as 
there are 

DD = data) on the line, and as much data as needed in each 
statement. 
&OD = carriage return - terminates each line. 


Variables 

tokens$ - array holding all tokens 

inputS$ - needed to convert input values into HEX, ends up 
containing <filename> 

width% - number of columns required across the page in 


PROCprint tokens 

string$, length$ - explained in header comments in FNfield 
S%, P% ~- start and stop addresses while recovering a program 
1% - memory counter in a number of places 

J% ~ another counter 


wee... eke | oe at 
AUTHORISED BBC SERVICE AGERTS. .. | 


APPLIED ENGINEERING & TECHNOLOGY LID. 


= P.O. Box 2446, Wellington. New Zealand — Telephone (04) 850-80¢ 


BILL GATRELL 


SERVICE MANAGER 









18 REM Program recover 

26 REM and token printout. 
38 REM by Steve Cosgrove 
46 REM 38 Sept, 1985 


50 

68 PROCread tokens 
78 PROCprint_tokens 
88 END 


96 
108 DEF PROCread_tokens 
118 
126 REM Designed on BASIC 2, this 
138 REN probably works on either one, 
148 
150 REM The tokens are stored in the 
148 REM ROM in alphabetical order. 
178 
188 DIM tokens$(&88), DY &BA 
198 
268 1% = &8878 
218 REPEAT 
2280 4 = Tdth 
238) UNTIL 214% = ASC(*A”) 
248 REM using this method to find 
298 REM the first token allows for 
268 REM a slight variation between 
278 REM ROM versions. 
288 
298 REPEAT 
306 $D4 = "" 
318 © REPEAT 
328 $0% = $0% + CHRS(21%) 
338 1% = 4+! 
348 UNTIL 71% d= &86 
350 = tokens$(?1% - &86) = $04 
3468 1K = V4t2 
378 UNTIL 1% >= &836C 
388 ENDPROC 


398 

408 DEF PROCrecover 

401 

482 REM an example of use of tokens 
483 REM tries to make a BASIC progarn 
484 REN out of everything between the 
405 REN addresses given 


7? 
410 


428 INPUT "start address ",input$ 

438 SA = EVAL( "&"tinputs ) 

435 

448 INPUT "stop address “, inputs 

450 PZ = EVAL( "&"+input$ ) 

455 

468 INPUT "filename * inputs 

465 REM leave blank if no recording 

in REM of the program is needed 

48@ IF input$ > "* THEN OSCLI "spool 

"+input$ : PRINT "AUTO" 

498 PRINT "AUTO" 

568 FOR 14 = S% TO PA 

518 

328 «IF 21% = &@D THEN PRINT : 1¥=1% 
+4 ; REM miss out the line numb 
er 

538 

3480 oF ¢?1% d= &28) AND (71K ¢ 127) 
THEN VOU 21% 

oa8 REM tf its printable, print it 

968 

578 oF 274 > &88 THEN PRINT tokensé 
{71/-&B8): : REM print the toke 
n 

588 

598 | NEXT 

488 PRINT 

618 IF input$ > "" THEN QSCL] "spool" 

620 ENDPROC 

638 

648 DEF PROCprint_tokens 

656 width = 2 

668 FOR 14 = @ TO &7F STEP width 

678 FOR JA = JK TO (14 + widths - J 

) 


686 PRINT ; FNfield(STR$ “(UA+&88 
),2) 5 FNfield{ tokens$(Jx) 18 


5 

698 IF J% < (1% + width% - 1) THE 
N PRINT FNfield<*" ,9); 

788 = NEXT 

718 PRINT 

728 NEXT 

738 ENDPROC 

740 
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USER GROUP MEETINGS 


AUCKLAND: -meets 2nd Wednesday of the month, 7.36pm, Conference 
Roons , fuckland Secondary Teachers College,4@ Epsom 
Ave, Epsom, ph Dave 778-638 x 518(bus) or Kerry 695-355. 
-Horth Shore: meets last Wednesday of the month, 7.38pm, 
Salvation Army Hall, Glenfield Road, Glenfield ph Chris 
419-8543 (wk) 


CHRISTCHURCH: fortnightly workshops, Monday 6.38pm at Hagley High 
School. ph. Michael 582-267, 

DUNEDIN: i ra Thursday of the month. Phone Martin McDowal | 

-631 

HAWKES BAY: Alternative months Hastings & Napier. Contact Kendall 
Napier 435-624, Bob Taradale 446-955, Mitch Hastings 
778-235, 

INVERCARGILL: -Phone Evan 330-444 Invercargill. 


PALMERSTON NORTH: ~Phone Tom Skinner 83-889(wk) 
TAUPO: -meets every second Wednesday @ 7pm. Contact David 
84-215 ¢h), 85-124 (wk), 


TAURANGA: -every second Wednesday. ph. Chris & Jane 65-076, 

TIMARU: -Phone Lloyd van der Krogt Timaru 4-412, 

TOKOROA: ~meets first Friday of each month, Tokoroa High School, 
8pm, Phone Brian 67-625 Tokoroa. 

WAIKATO: -first Friday of the month 7.38pm Waikato Tech 
Institute. Ph, Alison or John, Morrinsville 6695, 

WELLINGTON: ~meets every second WEDNESDAY of the month, 7.38pm, Royal 


Society Lecture Theatre, Turnbull St, Thorndon, 

Workshops: second Thursday of month, other venues. 

ph. Don 848-235 or Beryl 862-874 or Nike 785-437. 
OTHER CENTRES: - let us Know and we will publish details here. 

THE NEWSLETTER: 

CONTRIBUTIONS:-most welcome, Listings should be sent in on tape or disc. 
(Tape - 2 copies, one at 308 baud please). Please include written 
explanation of listing; text and graphics only material welcome too. 
DEADLINES:- For a particular issue, the last day for material is the last 
day of the month prior to publication. 
ADVERTISING:- Rates are $28 per half page (camera ready), deadline as 
above. 
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meetings as detailed above. Joining or renewing members get al} the back 

issues of the current year - those joining from 1 October may have half the 

annual sub waived and only receive newsletters from J October. 
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